Comment combiner deux graphiques linéaires ensemble

Engrenages

Je suis nouveau dans l'utilisation de R, veuillez donc rester avec moi car mon code pourrait ne pas être le meilleur. Je veux donc combiner ces deux graphiques linéaires ensemble car en ce moment j'ai écrit du code pour chaque élément que j'analyse. Voici l'ensemble de données que j'utilise: https://github.com/rfordatascience/tidytuesday/blob/master/data/2020/2020-09-01/readme.md J'ai utilisé l'ensemble de données "Arable_Land"!

##USA Arable Land
plot_arable_land_USA <- arable_land %>%
  filter(Code == "USA") %>%
  select(c(Year, Code, `Arable land needed to produce a fixed quantity of crops ((1.0 = 1961))`)) %>%
  pivot_longer(-c(Year, Code)) %>%
  ggplot(aes(x = Year, y = value,color=name,group=name)) +
  geom_line() +
  facet_wrap(.~name,scales = 'free_y') +
  theme_light() +
  theme(legend.position = 'none')

ggplotly(plot_arable_land_USA)

##Canada Arable Land
plot_arable_land_CAN <- arable_land %>%
  filter(Code == "CAN") %>%
  select(c(Year, Code, `Arable land needed to produce a fixed quantity of crops ((1.0 = 1961))`)) %>%
  pivot_longer(-c(Year, Code)) %>%
  ggplot(aes(x = Year, y = value,color=name,group=name)) +
  geom_line() +
  facet_wrap(.~name,scales = 'free_y') +
  theme_light() +
  theme(legend.position = 'none')

ggplotly(plot_arable_land_CAN)

Idéalement, j'aimerais qu'un graphique montre les deux comme une ligne (en violet) pour montrer les États-Unis et une autre ligne (en marron) pour montrer le Canada.

Je vous remercie!

canard

Essaye ça. Il est préférable de remodeler les données aussi longtemps que vous l'avez fait. Dans votre cas, vous pouvez ajouter filter()pour choisir les pays souhaités. Ensuite, remodelez en long et concevez le tracé. La touche est mise coloret groupavec Codepour obtenir les lignes souhaitées. Vous pouvez définir les couleurs en utilisant scale_color_manual()et j'ai laissé l'option facette pour obtenir le titre. Voici le code:

library(plotly)
library(tidyverse)
#Code
plot_arable_land_CAN <- arable_land %>% select(-Entity) %>%
  filter(Code %in% c('USA','CAN')) %>%
  pivot_longer(-c(Code,Year)) %>%
  ggplot(aes(x = Year, y = value,color=Code,group=Code)) +
  geom_line() +
  facet_wrap(.~name,scales = 'free_y') +
  theme_light() +
  theme(legend.position = 'none')+
  scale_color_manual(values = c('brown','purple'))
#Transform
ggplotly(plot_arable_land_CAN)

Production:

entrez la description de l'image ici

Articles connexes

Combiner deux fonctions ensemble

Frank Smith J'ai deux fonctions nl2bret substrque je voudrais combiner ensemble, quelqu'un pourrait-il s'il vous plaît dire comment je pourrais y parvenir: <?php echo nl2br($row_rsMyrecordSet['text']); ?> <?php echo substr($row_rsMyrecordSet['text'],0,10); ?>

Streaming de deux graphiques linéaires à l'aide du bokeh

jtitusj Je souhaite créer une visualisation dans laquelle deux graphiques linéaires sont mis à jour avec un nouveau point par graphique linéaire par seconde. J'ai récemment lu sur le bokeh et j'ai découvert qu'il pouvait être utilisé pour visualiser des flux d

combiner deux formats ensemble

Michael Je fais le formatage d'un dataframe. J'ai besoin de faire le séparateur des milliers et les décimales. Le problème est que lorsque je les combine ensemble, seul le dernier est en vigueur. Je suppose que beaucoup de gens peuvent avoir la même confusion,

comment combiner deux prochains si ensemble

Nikolan Asad J'ai un script qui s'exécute sur la liste des fichiers pour faire certaines des modifications, chaque fichier d'entre eux a un événement d'appel et les détails de l'événement d'appel contiennent 4 éléments donc je veux juste faire les changements

Comment combiner plusieurs graphiques linéaires ensemble

Engrenages Je suis nouveau dans l'utilisation de R, veuillez donc rester avec moi car mon code pourrait ne pas être le meilleur. Je veux donc combiner plusieurs graphiques linéaires ensemble car en ce moment j'ai écrit du code pour chaque élément que j'analyse

Comment combiner deux graphiques créés par autoplot?

John Considérons deux actifs financiers (pomme et or): start <- as.Date("2013-01-01") end <- as.Date("2016-10-01") library(quantmod) library(ggplot2) getSymbols("AAPL", src = "yahoo", from = start, to = end) getSymbols("GOLD", src = "yahoo", from = start, to =

Comment combiner deux sites Gatsby ensemble

Jibin Thomas Actuellement, j'ai deux sites développés à l'aide de gatsby.js déployés sur example.com et blog.example.com. Je souhaite créer un sous-répertoire de blog.example.com vers example.com/blog. Existe-t-il un moyen de le faire sans fusionner les deux r