如何输入数据并在x轴上制作多条折线图？答案

【问题标题】：how to input the data and make multiple line graph in x axis?如何输入数据并在x轴上制作多条折线图？
【发布时间】：2021-11-13 04:03:13
【问题描述】：

我在 excel 中有 6 列数据，每列有不同的行数。我想用这样的方式把它们做成折线图 Example

这里是我的数据链接data

但是我不知道如何在 excel 中输入数据以及制作什么样的包。请帮我。感谢您的好意！

【问题讨论】：

请分享您的数据样本
@ViníciusFélix 这是我的数据示例的链接-docs.google.com/spreadsheets/d/…

标签： r ggplot2 linegraph

【解决方案1】：

我尝试使用值的密度来举例说明 1R 和 2R。

库

library(tidyverse)

数据

df <-
  structure(list(`1R` = c(0.52065235, 0.454407916, 0.382303251, 
                          0.391933965, 0.386122039, 0.382303251, 0.391933965, 0.382303251, 
                          0.376475342, 0.424794009, 0.428951127, 0.439056177, 0.376475342, 
                          0.376475342, 0.406675365, 0.308530057, 0.271168123, 0.037713343, 
                          0.119157154, 0.298611542, 0.029875178, 0.073805877, 0.088483911, 
                          0.214084119, 0.018731476, 0.15214185, 0.408674503, 0.382303251, 
                          0.391933965, 0.42442224, 0.501227717, 0.391933965, 0.382303251, 
                          0.391933965, 0.391933965, 0.382303251, 0.382303251, 0.382303251, 
                          0.391933965, 0.391933965, 0.391933965, NA, NA, NA, NA),
                 `2R` = c(1.654094057, 
                          1.654094057, 1.654094057, 1.654094057, 1.654094057, 1.654094057, 
                          1.654094057, 1.654094057, 1.654094057, 1.654094057, 1.654094057, 
                          1.654094057, 1.654094057, 1.654094057, 1.866104207, 1.889711342, 
                          1.56723193, 1.723571083, 1.723571083, 1.723571083, 1.723571083, 
                          1.723571083, 1.723571083, 1.958552936, 1.488851935, 1.30784867, 
                          1.266307071, 1.172478307, 1.219163761, 1.209873388, 1.806941395, 
                          1.181518902, 1.181518902, 1.163574729, 1.1416133, 1.175491771, 
                          1.11782868, 0.943104661, 0.799804258, 0.838634766, 1.126341411, 
                          1.141790756, 1.945580292, 1.708711004, 1.594182435)),
            row.names = c(NA,-45L), class = c("tbl_df", "tbl", "data.frame"))

代码

df %>% 
  pivot_longer(cols = everything()) %>% 
  ggplot(aes(value))+
  geom_density()+
  facet_grid(~name,scales = "free")+
  geom_rug()

情节

【讨论】：

嗨，非常感谢您尝试和帮助我。我有一个问题，是否可以在 y 轴上设置 x 值？