怎么用ggplot2画这种柱状图？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

分年份和gtaeval对numgta进行柱状图分析。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：ggplot2 gplot plot GPL 柱状图 柱状图

把原始数据贴上来，要不还要构建数据

johnmy 发表于 2017-3-25 15:58
把原始数据贴上来，要不还要构建数据

谢谢 做出来了 但是有几个问题。
1. 怎么把竖向的改成横向的
2. 怎么显示百分比？

johnmy 发表于 2017-3-25 15:58
把原始数据贴上来，要不还要构建数据

谢谢 做出来了 但是有几个问题。
1. 怎么把竖向的改成横向的
2. 怎么显示百分比？

显示哪的百分比，什么竖向改横向

没有图？

不知道怎么更改阴影类型？
还有显示red ambar green 各种占比

rm(list = ls())

setwd("d:/Agriculture/")

install.packages("readstata13")

library(readstata13)

gtayear <- read.dta13("gtayear1.dta")

names(gtayear) <- c("startyear", "gtaeval", "numgta")

gtayear$gtaeval1 <- factor(gtayear$gtaeval)

library(ggplot2)

p <- ggplot(gtayear, aes(startyear))

p + geom_bar()

p + geom_bar(aes(fill = gtaeval), position = "dodge") + ggtitle("The Change of The GTA over the year") +
  labs(x = "Year", y = "The Measure of GTA")

gtayeargtaeval1<−factor(gtayear,gtaeval)

nkunku 发表于 2017-3-26 09:12
gtayeargtaeval1

谢谢！

johnmy 发表于 2017-3-25 17:32
显示哪的百分比，什么竖向改横向

想让每年三个分类显示不同的阴影类型，怎么做？使用theme()?具体怎么做？谢谢