如何在此ggplot图表中更改图例?

Rollo99

我正在尝试更改ggplot图的图例,但我没有这样做。这是我的df和图表的代码:

#df
df = structure(list(Date = structure(c(18319, 18320, 18321, 18322, 
18323, 18324, 18325, 18326, 18327, 18328, 18329, 18330, 18331, 
18332, 18333, 18334, 18335, 18336, 18337, 18338, 18339, 18340, 
18341, 18342, 18343), class = "Date"), Daily_Cases = c(250, 238, 
240, 566, 342, 466, 587, 769, 778, 1247, 1492, 1797, 977, 2313, 
2651, 2547, 3497, 3590, 3233, 3526, 4207, 5322, 5986, 6557, 5560
), Tests = c(2427, 3681, 2966, 2466, 2218, 2511, 3981, 2525, 
3997, 5703, 7875, 3889, 6935, 12393, 12857, 11477, 11682, 15729, 
13063, 10695, 16884, 17236, 24109, 26336, 25180), Proportion = c(10.3, 
6.5, 8.1, 23, 15.4, 18.6, 14.7, 30.5, 19.5, 21.9, 18.9, 46.2, 
14.1, 18.7, 20.6, 22.2, 29.9, 22.8, 24.7, 33, 24.9, 30.9, 24.8, 
24.9, 22.1)), class = "data.frame", row.names = c(NA, -25L))


df <- df %>% pivot_longer(names_to = 'Legend', values_to = 'value', Tests:Daily_Cases) 

ggplot(df) + theme_bw() +
  geom_col(aes(Date, value, fill = Legend), position = position_dodge()) +
  geom_line(aes(Date, Proportion*1000, colour = "Infected (%)", group = 1), size = 0.8) + scale_y_continuous("\n", sec.axis = sec_axis(~ . /1000, name = "(%) \n")) + labs(x="", y="") + 
  scale_colour_manual(" ", values=c("Infected (%)" = "black")) +
  theme(legend.position = "bottom")

结果如下:

在此处输入图片说明

不过,我希望能够删除单词联想,改变它的话Daily_Cases测试案件数试验数分别。

我没有这样做。谁能帮我?

chemdork123

对您问题的所有答案都是根据此处有关在ggplot中使用Legends的相关问题的答案对代码进行的修改最简单的方法是添加一个调用,scale_fill_manual()类似于您已经进行的操作scale_color_manual()

ggplot(df) + theme_bw() +
    geom_col(aes(Date, value, fill = Legend), position = position_dodge()) +
    geom_line(aes(Date, Proportion*1000, colour = "Infected (%)", group = 1), size = 0.8) + 
    scale_y_continuous("\n", sec.axis = sec_axis(~ . /1000, name = "(%) \n")) + labs(x="", y="") + 
    scale_colour_manual(" ", values=c("Infected (%)" = "black")) +
    theme(legend.position = "bottom") +
    scale_fill_manual("", values=c('Daily_Cases'='blue', 'Tests'='red'), labels=c('Numer of Cases', 'Number of Tests'))

在下面给您(您可以将颜色更改为您想要的任何颜色,但是我认为这是您想要的):

在此处输入图片说明

正如其他用户指出的那样,您可以使用scale_fill_discrete()保留默认颜色并仅指定标签:

ggplot(df) + theme_bw() +
    geom_col(aes(Date, value, fill = Legend), position = position_dodge()) +
    geom_line(aes(Date, Proportion*1000, colour = "Infected (%)", group = 1), size = 0.8) +
    scale_y_continuous("\n", sec.axis = sec_axis(~ . /1000, name = "(%) \n")) + labs(x="", y="") + 
    scale_colour_manual(" ", values=c("Infected (%)" = "black")) +
    theme(legend.position = "bottom") +
    scale_fill_discrete("", labels=c('Numer of Cases', 'Number of Tests'))

本文收集自互联网,转载请注明来源。

如有侵权,请联系[email protected] 删除。

编辑于
0

我来说两句

0条评论
登录后参与评论

相关文章

来自分类常见问题

如何在此ggplot中更改图例的标题

来自分类Dev

如何在此ggplot中更改图例的标题

来自分类Dev

Highcharts:如何在图表导出中更改图例位置?

来自分类Dev

如何在Excel中的群集列图表中更改图例名称

来自分类Dev

更改图表中的图例大小

来自分类Dev

如何在R的Highcharter中更改图例的比例?

来自分类Dev

如何在dxChart中更改图例符号

来自分类Dev

如何在Dojo中更改图表系列的线条颜色?

来自分类Dev

如何在Excel 2013中更改图表的方向?

来自分类Dev

R ggplot更改图例中的颜色和图例序列

来自分类Dev

如何更改图表列C#中的图例文本?

来自分类Dev

WPF图表控件更改图例中的“系列”标题

来自分类Dev

如何更改图例中的行数?

来自分类Dev

如何更改图表

来自分类Dev

如何在图表工作表Excel VBA中更改图表的源数据

来自分类Dev

ggplot2:更改图例中的因子顺序

来自分类Dev

更改图例在ggplot2中的位置

来自分类Dev

如何在nvd3中更改图例文本的字体?

来自分类Dev

如何在nvd3图形中更改图例的宽度

来自分类Dev

如何在d3js图形中更改图例的文本颜色?

来自分类Dev

如何在nvd3图形中更改图例的宽度

来自分类Dev

如何更改图例的位置

来自分类Dev

如何在 Angular-charts.js 中更改图表线条颜色

来自分类Dev

使用ggplot2更改图例

来自分类Dev

ggplot2:更改图例符号

来自分类Dev

使用ggplot2更改图例

来自分类Dev

情节:如何更改图例中显示的行的大小?

来自分类Dev

如何更改图例框中符号/文本的位置?

来自分类Dev

在ggplot2中更改图例标题时出现幻影图例?