Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/powershell/12.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
R-ggplot2几何图形线()在R中_R_Visualization - Fatal编程技术网

R-ggplot2几何图形线()在R中

R-ggplot2几何图形线()在R中,r,visualization,R,Visualization,不熟悉R语言。我想使用geom_线来比较这两个属性。我该怎么做?像这样的事情 WindSpeed9am WindSpeed3pm 6 20 4 17 30 6 WindSpeed9am是这样的吗 WindSpeed9am WindSpeed3pm 6 20 4 17 30 6 WindSpeed9am要使用geom

不熟悉R语言。我想使用geom_线来比较这两个属性。我该怎么做?

像这样的事情

WindSpeed9am    WindSpeed3pm
6               20
4               17
30              6 
WindSpeed9am是这样的吗

WindSpeed9am    WindSpeed3pm
6               20
4               17
30              6 

WindSpeed9am要使用
geom_线
,至少需要两个变量(x轴和y轴)。从上下文中,我添加了一个变量
day

库(tidyverse)
df%>%
mutate(day=row_number())%>%#为x轴添加第二个变量
pivot_longer(WindSpeed9am:WindSpeed3pm)%>%#变成ggplot期望的整洁/长格式
ggplot(aes(x=天,y=值,颜色=名称))+#启动绘图并设置美学
几何线()#添加线

由(v2.0.0)于2021年5月15日创建

这是一个相当基本的问题,因此作为具体答案的补充,我建议您进一步了解
ggplot2

数据
df要使用
geom_线
,至少需要两个变量(用于x轴和y轴)。从上下文中,我添加了一个变量
day

库(tidyverse)
df%>%
mutate(day=row_number())%>%#为x轴添加第二个变量
pivot_longer(WindSpeed9am:WindSpeed3pm)%>%#变成ggplot期望的整洁/长格式
ggplot(aes(x=天,y=值,颜色=名称))+#启动绘图并设置美学
几何线()#添加线

由(v2.0.0)于2021年5月15日创建

这是一个相当基本的问题,因此作为具体答案的补充,我建议您进一步了解
ggplot2

数据
df
  • 使用
    行号()为x轴添加id列
  • 使用
    pivot\u long
  • 使用
    ggplot
    color
    group
    绘制
    geom\u线
  • 库(tidyverse)
    df1%
    变异(id=行号())%>%
    再长一点(
    cols=-id
    )
    ggplot(df1,aes(因子(id),值,颜色=名称,组=名称))+
    几何点()+
    geom_线()
    

    数据:

    df
    
  • 使用
    行号()为x轴添加id列
  • 使用
    pivot\u long
  • 使用
    ggplot
    color
    group
    绘制
    geom\u线
  • 库(tidyverse)
    df1%
    变异(id=行号())%>%
    再长一点(
    cols=-id
    )
    ggplot(df1,aes(因子(id),值,颜色=名称,组=名称))+
    几何点()+
    geom_线()
    

    数据:


    df谢谢!非常感谢你的回答!它起作用了!谢谢非常感谢你的回答!它起作用了!谢谢非常感谢您的时间和帮助!现在我学到了一些东西!不客气!您可以投票和/或接受答案,以表明它对您有所帮助;)谢谢非常感谢您的时间和帮助!现在我学到了一些东西!不客气!您可以投票和/或接受答案,以表明它对您有所帮助;)谢谢谢谢你的帮助!这工作也很好!谢谢谢谢你的帮助!这工作也很好!
    
    df <- read.table(text = "WindSpeed9am    WindSpeed3pm
    6               20
    4               17
    30              6 ", header = TRUE)
    
    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 )