r - 带有渐变颜色填充的水平条形图
问题描述
我正在尝试创建水平条形图,我想通过颜色渐变填充条形图,如图所示,为此我编写了这个脚本。但是出现了错误消息:错误:提供给连续尺度观测的离散值:这些列告知每个物种的频率。这里有人知道如何创建颜色渐变吗?
Dataset <- read.csv(file = "dados_grafico_foco_barra.csv", header = TRUE, sep = ";")
attach(Dataset)
ggplot(Dataset, aes(specie, M1_sava, fill = momento)) +
facet_wrap(~ momento, nrow = 1) +
coord_flip() +
geom_col(aes(fill = M1_sava)) +
scale_fill_gradient2(low = "white", high = "green") +
theme_bw(base_size = 10)
specie momento M1_sava
S1 M1 1,00
S2 M1 0,86
S3 M1 1,00
S4 M1 1,00
S5 M1 1,00
S6 M1 0,74
S7 M1 0,39
S8 M1 0,83
S9 M1 0,83
S10 M1 0,00
S11 M1 0,70
S12 M1 0,11
S13 M1 1,00
S14 M1 0,00
S15 M1 0,00
S16 M1 0,00
S17 M1 0,00
S18 M1 0,83
S19 M1 0,00
S20 M1 0,00
S21 M1 0,00
S22 M1 0,00
S23 M1 0,00
S24 M1 0,04
S25 M1 0,00
S26 M1 0,00
S1 M2 0,33
S2 M2 0,86
S3 M2 0,39
S4 M2 0,02
S5 M2 0,07
S6 M2 0,02
S7 M2 0,87
S8 M2 0,06
S9 M2 0,63
S10 M2 0,33
S11 M2 0,91
S12 M2 0,67
S13 M2 0,18
S14 M2 0,08
S15 M2 0,00
S16 M2 0,00
S17 M2 0,00
S18 M2 0,00
S19 M2 0,08
S20 M2 0,00
S21 M2 0,04
S22 M2 0,00
S23 M2 0,00
S24 M2 0,00
S25 M2 0,00
S26 M2 0,00
S1 M3 0,04
S2 M3 0,32
S3 M3 0,02
S4 M3 0,00
S5 M3 0,00
S6 M3 0,00
S7 M3 0,96
S8 M3 0,06
S9 M3 0,18
S10 M3 0,33
S11 M3 0,63
S12 M3 1,00
S13 M3 0,00
S14 M3 0,94
S15 M3 0,17
S16 M3 0,00
S17 M3 0,41
S18 M3 0,04
S19 M3 0,44
S20 M3 0,17
S21 M3 0,02
S22 M3 0,00
S23 M3 0,00
S24 M3 0,00
S25 M3 0,00
S26 M3 0,00
S1 M4 0,00
S2 M4 0,00
S3 M4 0,00
S4 M4 0,00
S5 M4 0,00
S6 M4 0,00
S7 M4 0,89
S8 M4 0,00
S9 M4 0,03
S10 M4 0,22
S11 M4 0,41
S12 M4 0,46
S13 M4 0,00
S14 M4 0,81
S15 M4 0,39
S16 M4 0,70
S17 M4 0,70
S18 M4 0,00
S19 M4 0,87
S20 M4 0,91
S21 M4 0,33
S22 M4 0,37
S23 M4 0,24
S24 M4 0,15
S25 M4 0,00
S26 M4 0,00
解决方案
两个问题:
- 你用
fill
了两次;这本身不是问题,但令人困惑,因为第二个fill = M1_sava
内部geom_col
优先于fill = momento
内部ggplot
。 - 您错误地使用
,
而不是.
作为 column 中值的小数分隔符M1_sava
。
df %>%
mutate(M1_sava = as.numeric(gsub(",", "\\.", M1_sava))) %>%
ggplot(aes(specie, M1_sava)) +
facet_wrap(~ momento, nrow = 1) +
coord_flip() +
geom_col(aes(fill = M1_sava)) +
scale_fill_gradient2(low = "white", high = "green") +
theme_bw(base_size = 10)
推荐阅读
- shell - 如何在linux shell脚本中获取hbase的所有表并对每张表进行操作?
- html - 在导航栏 bootstrap-4 Beta 下方放置一个背景图片
- php - Redmine + PHP Wamp:如何在现有 Wamp 服务器中安装 Redmine
- ios - 无法仅重新加载选定的单元格
- java - 异步 Web 服务方法 (JAVA CXF)
- sql - SQL - 以两种不同方式查询相关表
- hadoop - 嵌套选择在蜂巢中不起作用
- r - 读取多个 xlsx 文件,每个文件都有多个工作表 - purrr
- php - 在使用mysql更新数据期间如何检查输入的字段是否已经存在
- rust - 如果您打印值,为什么 Rust 编译器不能优化 Option::take 和“if let”?