我正在繪制兩個經濟變數的時間序列圖:通貨膨脹和 PBI 增長。
我的資料如下所示:
# A tibble: 6 × 6
`Country Name` `Country Code` Year `CrecimientoPBI (%)` `Inflación (%)` `Desempleo (%)`
<chr> <chr> <chr> <dbl> <dbl> <dbl>
1 Estados Unidos USA 1961 2.3 1.07 6.7
2 Estados Unidos USA 1962 6.1 1.2 5.5
3 Estados Unidos USA 1963 4.4 1.24 5.7
4 Estados Unidos USA 1964 5.8 1.28 5.2
5 Estados Unidos USA 1965 6.4 1.59 4.5
6 Estados Unidos USA 1966 6.5 3.02 3.8
我想添加一個圖例,說明哪種顏色對應于每個變數,但鑒于它們是數值變數,我無法做到。當我像“aes(col = as.factor(...))”那樣做時,它也不起作用,我只得到所有數值觀察結果。
總結一下,這就是我目前擁有的:

我想添加一個圖例,紅線表示“PBI 增長”,藍線表示“通貨膨脹”。
有誰知道如何正確地做到這一點?提前致謝。
uj5u.com熱心網友回復:
最好的辦法是首先對資料進行透視,這樣您就可以將系列型別作為美學傳遞。
那里似乎你也有兩種線型,所以我在下面的 reprex 中包含了類似的東西。
library(tidyverse)
mydat <-
read_table("
CountryName CountryCode Year CrecimientoPBI Inflación Desempleo
Estados Unidos USA 1961 2.3 1.07 6.7
Estados Unidos USA 1962 6.1 1.2 5.5
Estados Unidos USA 1963 4.4 1.24 5.7
Estados Unidos USA 1964 5.8 1.28 5.2
Estados Unidos USA 1965 6.4 1.59 4.5
Estados Unidos USA 1966 6.5 3.02 3.8")
mydat %>%
select(Year, CrecimientoPBI, Inflación, Desempleo) %>%
pivot_longer(cols = c(CrecimientoPBI, Inflación, Desempleo)) %>%
mutate(type = if_else(name == "Desempleo", "labor-related", "growth-related")) %>%
ggplot()
geom_line(aes(x = Year, y = value, color= name, linetype = type))
geom_point(aes(x = Year, y = value, color= name), size = 2, alpha = 0.4)
theme_classic()
theme(legend.position = "right")

由reprex 包(v2.0.1)于 2021 年 11 月 23 日創建
轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/365023.html
