можете попробовать
library(tidyverse)
a <- str_split("PCT_Asian | PCT_Black | PCT_Hispanic | PCT_White | PCT_Other", "[|]", simplify = T) %>% str_trim(.)
b <- str_split(".26554 .25454 .145454 .22454 .23123", " ", simplify = T) %>% as.numeric(.) %>% na.omit(.)
tibble(a, b) %>%
mutate(x = str_remove(a, "PCT_")) %>%
ggplot(aes(x, b)) +
geom_col() +
scale_y_continuous(labels = scales::percent)
введите описание изображения здесь