为了绘制数据帧,我有以下内容.

c1 <- c(10, 20, 40)
c2 <- c(3, 5, 7)
c3 <- c(1, 1, 1)
df <- data.frame(c1, c2, c3)
ggplot(data=df, aes(x=c1+c2/2, y=c3)) +
  geom_bar(stat="identity", width=c2) +
  scale_fill_manual(values=c("#FF6666"))

我最后只有灰色的条:Grey bars for bar plot

我想换一下吧台的 colored颜色 .

谢谢你的帮助.

推荐答案

如果你想让所有的条都有相同的 colored颜色 (fill),你可以很容易地将其添加到geom_bar中.

ggplot(data=df, aes(x=c1+c2/2, y=c3)) + 
geom_bar(stat="identity", width=c2, fill = "#FF6666")

enter image description here

aes中添加fill = the_name_of_your_var可根据变量更改 colored颜色 :

c4 = c("A", "B", "C")
df = cbind(df, c4)
ggplot(data=df, aes(x=c1+c2/2, y=c3, fill = c4)) + 
geom_bar(stat="identity", width=c2)

enter image description here

如果要手动更改 colored颜色 ,请使用scale_fill_manual().

ggplot(data=df, aes(x=c1+c2/2, y=c3, fill = c4)) + 
geom_bar(stat="identity", width=c2) + 
scale_fill_manual("legend", values = c("A" = "black", "B" = "orange", "C" = "blue"))

enter image description here

R相关问答推荐

使用lares::corr_var函数在for循环中分配变量的问题

如何以编程方式将X轴勾号上的希腊符号合并到R图中?

在R中使用自定义函数时如何删除该函数的一部分?

查找满足SpatRaster中条件的单元格位置

如何在emmeans中计算连续变量的对比度

如何在格子中添加双曲曲线

在R中将特定列的值向右移动

R-更新面内部的栅格值

使用列/行匹配将两个不同维度的矩阵相加

传递ggplot2的变量作为函数参数—没有映射级别以正确填充美学

提取一个列表中单个列的重复观察结果R

找出二叉树中每个 node 在R中的深度?

try 将 colored颜色 编码添加到ggploly的标题中

使用`Watch()`和`renderUI()`时,不再满足仍出现在SHILINY AFTER条件中的条件输入

R中1到n_1,2到n_2,…,n到n_n的所有组合都是列表中的向量?

当我们有多个反斜杠和/特殊字符时使用Gsubing

TreeNode打印 twig 并为其上色

使用来自嵌套列和非嵌套列的输入的PURRR:MAP和dplyr::Mariate

将某个阈值以下的列中的值分类到不同的列中,否则保持该列的原样

如何编辑被动式数据表?