R-ggplot2 R中的geom_line()

Question

WindSpeed9am    WindSpeed3pm
6               20
4               17
30              6 

R语言新手。我想使用geom_line来比较这两个属性。我该怎么做呢？

Answer 1

使用pivot_longer

• use

1. 和geom_line

的ggplotcolour为x轴添加id列，其中包含长格式的group数据

library(tidyverse)
df1 <- df %>% 
  mutate(id = row_number()) %>% 
  pivot_longer(
    cols = -id
  )
ggplot(df1, aes(factor(id), value, colour=name, group=name)) +
  geom_point() +
  geom_line()

​

​

数据：

df <- tribble(
~WindSpeed9am,    ~WindSpeed3pm,
6,            20,
4,               17,
30,              6 )

Answer 2

像这样的东西？

WindSpeed9am <- c(6,4,30) 
WindSpeed3pm <- c(20,17,6)
df <- data.frame(WindSpeed9am,WindSpeed3pm)

library(ggplot2)
ggplot(df)+
  geom_line(aes(x=1:3,y=WindSpeed3pm),col="red")+
  geom_line(aes(x=1:3,y=WindSpeed9am),col="blue")

​

​