简化ggplot条形图并使条形宽度相同

Question

这是我的玩具示例：

strReplaceText = Replace(strtext, "<", chr(60)) //Sample... Repeat for all the chars
NodeList.childNodes(0).nodeValue = strReplaceText 
objXML.Save(destination)

以下是结果图表：

这种安排基本上就是我想要的，但我想在这里做三件事，我不知道怎么做：

1. 使所有条形颜色相同
2. 删除图例
3. 使所有条形宽度相同

谢谢！

Answer 1

这样的东西？：

yvalue = c(.1, .2, .3, .2, .1, .2, .3, .1)
df = data.frame(yvalue)
df$name = c("a", "b", "c", "d", "e", "f", "g", "h")
df$type = c("apple", "apple", "apple", "apple", "apple", "banana", "banana", "banana")

fulldat <- rbind(df, cbind(yvalue=NA,expand.grid(name=df$name,type=df$type)))

ggplot(data = fulldat) + geom_bar(aes(y = yvalue, x=type, fill=name),width=0.5,stat = "identity",position=position_dodge(0.9)) +
  guides(fill=FALSE) + scale_fill_manual(values = rep("red",8))

Answer 2

从定义中删除fill时，您可以从颜色和图例中删除。

您可以使用以下代码：我使用facets在图片中保留“类型”。

ggplot(data = df) + 
geom_bar(aes(y = yvalue, x=name), stat = "identity", position = position_dodge()) +
facet_wrap(~type) +
theme_classic()

请告诉我这是否是你想要的。