TYPE | CA | COUNTRY |
草地 | 45633.78 | CN |
耕地 | 3250981 | CN |
建设用地 | 165136.3 | CN |
林地 | 1832954 | CN |
其它 | 157.95 | CN |
湿地 | 295790.1 | CN |
水体 | 271418 | CN |
草地 | 575991.8 | RU |
耕地 | 702245.7 | RU |
建设用地 | 227573.6 | RU |
林地 | 10242925 | RU |
其它 | 160360.6 | RU |
湿地 | 1016432 | RU |
水体 | 589802.3 | RU |
- library(ggplot2)
- library(readxl)
- CAdata <- read_excel(path = "CA.xlsx", sheet = 2, col_names = T)
- ggplot(CAdata, aes(TYPE, CA, fill=COUNTRY))+
- geom_bar(stat = "identity")