代码如下:
- top10_country_gta <- read.dta13("top10_country_gta.dta")
- names(top10_country_gta)[4] <- c("措施种类")
- gg9 <- ggplot(top10_country_gta, aes(countrycode, num_country_gtatype, colour = 措施种类, shape = 措施种类)) +
- geom_point() + geom_text(aes(label = 措施种类, vjust = -0.9, hjust = 0.5), position = position_dodge(0.9), vjust = 0)
- gg9