r - 如何在一个坐标系中绘制两个图表，组合一列的所有值？

Question

我想要一个坐标系，但问题是:

我在数据集中拥有所有州的所有图表，颜色正确，图例仅根据政党，但仍然有 50 个图表。 我只想要两种 - 一种结合所有共和州，一种结合所有民主州。

corona_usa_simple <- readr::read_csv("https://raw.githubusercontent.com/datasets/covid-19/master/data/us_simplified.csv")

corona_us_states <- corona_usa_simple %>% 
select(- FIPS, -`Country/Region`) %>%  rename(State=`Province/State`)

us_states_population <- corona_us_states %>%
    group_by(State, Date) %>% 
    summarise(totalPopulation = sum(Population),
              totalConfirmed = sum(Confirmed),
              totalDeaths = sum(Deaths))

wiki_governors <- htmltab("https://en.wikipedia.org/wiki/List_of_United_States_governors",
 header = 2) %>% slice(-1)
wiki_governors[23,3] <- "Democratic" #Democratic-Farmer-Labor to Democratic

corona_party_states <- left_join(wiki_governors, us_states_population, by= "State") %>%
select(- Governor, - Born, - `Prior public experience`, - Inauguration, - `End of term`, - `Past governors`)
corona_party_states <- transform(corona_party_states, CasesPop = totalConfirmed*100000/totalPopulation) %>%
  rename(state = State) 

## Plot for the graphs
ggplot(data = corona_party_states) +
  geom_point(aes(x = Date, y = CasesPop, color = Party)) +
  scale_color_manual(values=c("Democratic" = "blue", "Republican" = "red"))+
  ggtitle("COVID-19 Cases per Capita by Party")+
  ylab("Cases/100K")+
  xlab("Timeline")+
  theme_bw()

这是我到目前为止的代码。我将不胜感激任何帮助!

我也尝试过这种方法，但看起来是一样的:

corona_party_cases <- corona_party_states %>% 
 group_by(Party, Date) %>% select(-state) %>% summarise(CasesPop)

Answer 1

如果我理解正确的话，你想要在你的情节上有两条线；共和党州每 10 万例有一条线，民主党州每 10 万例有一条线。在这种情况下，您需要对数据做更多的工作来清理和总结它。绘图代码本身很好。

corona_party_states %>% 
  select(-Party) %>% 
  rename(Party = Party.1) %>%
  mutate(Party = substr(Party, 1, 10)) %>%
  group_by(Date, Party) %>%
  summarise(total_pop = sum(totalPopulation),
            total_confirmed = sum(totalConfirmed),
            CasesPop = 100000 * total_confirmed/total_pop) %>%
  ggplot() +
  geom_line(aes(x = Date, y = CasesPop, color = Party), size = 2) +
  scale_color_manual(values = c(Democratic = "blue", Republican = "red")) +
  ggtitle("COVID-19 Cases per Capita by Party")+
  ylab("Cases/100K")+
  xlab("Timeline")+
  theme_bw()