Как указано в комментариях, размещение изображений кодов / данных / ошибок - плохая практика. Я скопировал только первые две записи вашего фрейма данных. В общем, для ggplot (и всего тидиверса) наблюдения должны быть в строках, а не в столбцах. Поэтому вам сначала нужно преобразовать ваши данные, а затем построение графика будет довольно простым.
library(tidyverse)
df1 <- data.frame(white = 48.8, asian = 40)
df1 %>%
t() %>% # convert columns to rows
as.data.frame() %>% # need to change it to a data frame as t() converts it to a matrix
rownames_to_column("id") %>%
ggplot(aes(x = id, y = V1)) +
geom_col()
Результат: