R 如何使用ggplot2绘制分组条形图、分段条形图和脊椎图？

我想在r中画一个分组条形图

这是我的密码：

xtable <- xtabs(~ view + grade, data=hs)

xtable

barplot(xtable, beside = T, legend.text = T)

library(reshape2)
data.m <- melt(xtable, id.vars='view')

data.m
# plot
ggplot(data.m, aes(grade, value)) + geom_bar(aes(fill = view), 
   width = 0.4, position = "dodge", stat="identity") +  
   theme(legend.position="top", legend.title = 
   element_blank(),axis.title.x=element_blank(), 
   axis.title.y=element_blank())

视图和等级是售出房屋的两个属性。等级是一个介于0到13之间的值，表示房屋的等级，视图是0到4，表示房屋的视图有多好

r中常用的条形图命令工作于oaky。然而，我喜欢它的情节。 我遵循了类似问题的答案，但我得到的是一个堆叠的条形图，而不是一个分组的条形图。此外，如何使用相同的数据生成分段条形图和脊椎图

您的代码认为视图是连续的，而不是连续的。将其转换为因子

这将生成以下内容，您可以稍后对其进行修改以使其看起来更漂亮

---

对于分组条形图，请选中此项：@yarnabrina我也做了同样的操作，但它仍然\n堆叠在一起。我还没有尝试您的代码。你能告诉我这些hs数据在哪里吗？@yarnabrina我把它们放在

library(ggplot2)
library(reshape2)

hs <- read.csv(file = file.choose())

xtable <- xtabs(formula = (~ view + grade),
                data = hs)

data.m <- melt(data = xtable,
               id.vars='view')

ggplot(data = data.m,
       mapping = aes(x = grade,
                     y = value)) +
  geom_bar(mapping = aes(fill = factor(x = view)),
           position = "dodge",
           stat="identity")