使用ggplot在r中创建分组条形图

Question

我在excel文件中有数据，格式如附图所示。我正在尝试使用ggplot2创建一个关于种族和住房收入百分比的分组条形图。有人可以帮助我如何为我的场景创建一个分组的条形图。

由于

dataimage

Answer 1

如果您可以包含excel文件的图像，或至少提供数据的快照，那么回答问题会更容易。 但我相信你可以使用XLConnect包

install.packages("XLConnect")

library(XLConnect)

然后使用loadWorkbook中的XLConnect函数将数据加载为R数据帧（如下所示： df <- loadWorkbook("XLConnectExample1.xlsx", create = TRUE)

您可以开始使用ggplot2中的数据

ggplot(df,aes(x=....,y=...)+geom_bar(position="dodge")

如果你给出了你想要的东西和数据的快照，那么回答会更容易

Answer 2

以下内容如何;

# create some reproducible data
race<- c("white","afr-amr","amr-ind","asian","pacf-isl","twormore","hisp-lati")
less5perc<- c(1.6,2.4,5.4,3.4,2.4,1.8,2.3)
less24perc<- c(41.2,45.2,39.4,44.3,51.5,56.5,48.2)
less49perc<- c(25.3,22.3,27.2,30.3,28.8,29.2,31.2)
less69perc<- c(5.6,5.2,7.1,9.3,8.2,6.5,6.3)
less99perc<- c(3.3,4.3,4.1,3.2,4.5,5.1,3.4)
grt100perc<- c(6.1,7.2,8.4,9.3,7.5,8.3,6.5)

df<- data.frame(race,less5perc,less24perc,less49perc,less69perc,less99perc,grt100perc)

# With ggplot2
require(ggplot2)

ggplot(df, aes(x=less69perc, y=less99perc, fill=race)) +
  geom_bar(stat = "identity", position=position_dodge())

ggplot(df, aes(x=race, y=less69perc, fill=race)) +
  geom_bar(stat = "identity", position=position_dodge())