或者另一種選擇是：
df %>%
tidyr::pivot_longer(cols = c(sumCumDeaths, sumCumRecovered, sumCumTests),
names_to = "variable",
values_to = "value") %>%
dplyr::group_by(Continent, variable) %>%
dplyr::mutate(variable = fct_relevel(variable, c("Africa", "Asia", "Europe", "North America", "Oceania",
"South America"))) %>%
ggplot(ggplot2::aes(variable, y = log(value), fill=Continent))
geom_col(position = position_dodge())
轉載請註明出處，本文鏈接：https://www.uj5u.com/yidong/474389.html
上一篇：通過填寫R重新排序條形圖