在同一张图表上使用2条不同的线

Question

 df <- read.csv ('https://raw.githubusercontent.com/ulklc/covid19- 
timeseries/master/countryReport/raw/rawReport.csv',
            stringsAsFactors = FALSE)

 df6 <- aggregate(recovered ~ region, subset(df), sum)

 df4 <- aggregate(death ~ region, subset(df), sum)

如何在同一张图表上用不同的线显示df6和df4数据。

在折线图中使用不同的线。

Answer 1

这是基本的R方法：

plotdf <- aggregate(cbind(recovered,death) ~ region, df, sum)
rownames(plotdf) <- plotdf$region
plotdf <- as.matrix(plotdf[,-1])
barplot(t(as.matrix(plotdf)), beside = TRUE, col = c("green","red"))
legend("topleft",c("Recovered","Died"), fill = c("green","red"))

这是（更好的）“ tidyverse”方式：

library(dplyr)
library(tidyr)
library(ggplot2)

df %>%
  group_by(region) %>%
  summarize(recovered = sum(recovered),
            death = sum(death)) %>%
  pivot_longer(-region) %>%
ggplot(aes(x = region, y = value, fill = name)) +
  geom_bar(position = "dodge", stat="identity") + 
  labs(x = "Region", y = "Number", fill = "Status")