在viridis调色板中表示barplot

Question

我正在尝试使用viridis颜色板来表示以下excel数据：

在条形图中显示与GaPa_NaPa有关的森林百分比。我试图用代码来表示森林百分比：ggplot(data=Rupandehi_Forest，data=Rupandehi_Forest)所得结果如下：

。因此，如何使用viridis颜色和森林面积(在Ha)来表示这一点与GaPa_NaPa有关。

Answer 1

这里有一种方法，我们可以这样做：

library(tidyverse)

df %>% 
  count(Forest_Percent) %>% 
  ggplot(aes(x=factor(Forest_Percent), y= n, fill=Forest_Percent)) +
  geom_col()+
  labs(x="Forest Percent")+
  scale_fill_viridis_d()+
  geom_text(aes(label = n), vjust = 1.5, colour = "white")+
  theme_bw()

​

​

数据：

df <- structure(list(District = c("RUPANDEHI", "RUPANDEHI", "RUPANDEHI", 
"RUPANDEHI", "RUPANDEHI", "RUPANDEHI", "RUPANDEHI", "RUPANDEHI", 
"RUPANDEHI", "RUPANDEHI", "RUPANDEHI", "RUPANDEHI", "RUPANDEHI", 
"RUPANDEHI", "RUPANDEHI", "RUPANDEHI"), GaPa_NaPa = c("Gaidahawa", 
"Kanchan", "Kotahimal", "Marchawari", "Mayadevi", "Omsatiya", 
"Rohini", "Sammarimal", "Siyari", "Sudhdhodhan", "Devdaha", "Lumbini Sanskritik", 
"Sainamaina", "Siddharthanagar", "Tillotama", "Butwal"), TotalAreaIn_ha = c(9657L, 
5835L, 5812L, 4844L, 7228L, 4844L, 6449L, 5066L, 6620L, 5743L, 
13667L, 11194L, 16082L, 3595L, 12592L, 10139L), ForestAreaIn_ha = c(726L, 
1276L, 0L, 0L, 0L, 1L, 17L, 0L, 142L, 20L, 7352L, 0L, 9115L, 
11L, 1358L, 4958L), Forest_Percent = c("7.50%", "21.90%", "0.00%", 
"0.00%", "0.00%", "0.00%", "0.30%", "0.00%", "2.10%", "0.30%", 
"53.80%", "0.00%", "56.70%", "0.30%", "10.80%", "48.90%")), class = "data.frame", row.names = c("1", 
"2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12", "13", 
"14", "15", "16"))