R 小数据集上的线绘制

我有一个小的数据集，我需要用它进行绘图。我正在努力解决这个问题：/ 我希望有3条彩色线（每行（1,2,3）的每一行。x轴需要是列名，Y轴代表每一个数值

到目前为止，我的代码看起来是错误的

plot_ly (x = colnames(a), y = a[1], type = "scatter" ,mode = "lines" )

---

我不确定这是否是你想要的情节，但听起来与你的描述最接近。我改编了几列你的数据来描述

如果使用

pivot\u longer

以较长的形式显示数据，则绘图会更容易。如果向数据中添加行号，以便可以为每个行号绘制一行，则绘图也会更容易

library(plotly)
library(tidyverse)

a %>%
  mutate(rn = row_number()) %>%
  pivot_longer(cols = -rn, names_to = "name", values_to = "value") %>%
  mutate(name = factor(name, levels = colnames(a))) %>%
  plot_ly(x = ~name, y = ~value, split = ~rn, type = "scatter", mode = "lines")

由于

plotly

将按字母顺序绘制xaxis类别，因此您需要将

name

因子（name是您的列名）按列的顺序进行重新排序

在

plot\u ly

语句中，使用

split

按行号打印

library(plotly)
library(tidyverse)

a %>%
  mutate(rn = row_number()) %>%
  pivot_longer(cols = -rn, names_to = "name", values_to = "value") %>%
  mutate(name = factor(name, levels = colnames(a))) %>%
  plot_ly(x = ~name, y = ~value, split = ~rn, type = "scatter", mode = "lines")

输出

数据

a <- data.frame(
  N_of_Brands = c(-.4, .8, -.4),
  Brand_Runs = c(-.26, .70, -.75),
  Total_Volume = c(-.69, .15, -.015),
  No_of_Trans = c(-.81, .45, -.35)
)

---

a谢谢你，本。为了开始剧情，这对我帮助很大。我太迷路了