Warning: file_get_contents(/data/phpspider/zhask/data//catemap/9/three.js/2.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 2d绘图为空(第三个变量的2行和线颜色)_R_Ggplot2 - Fatal编程技术网

R 2d绘图为空(第三个变量的2行和线颜色)

R 2d绘图为空(第三个变量的2行和线颜色),r,ggplot2,R,Ggplot2,我想要一个图,其中相同关键字的所有行相互连接,时间戳在X轴上,计数在Y轴上。我想每个关键字都有一个不同的颜色为其行和行被标记的关键字 感谢@I,我成功地获得了以下信息: #load from csv. Fields are keyword,count,timestamp. Example line: "blablabla","123","2018/08/09" csvdata <- read.csv("c:/mydataset.csv", header=TRUE, sep=",") #

我想要一个图,其中相同关键字的所有行相互连接,时间戳在X轴上,计数在Y轴上。我想每个关键字都有一个不同的颜色为其行和行被标记的关键字

感谢@I,我成功地获得了以下信息:

#load from csv. Fields are keyword,count,timestamp. Example line: "blablabla","123","2018/08/09"
csvdata <- read.csv("c:/mydataset.csv", header=TRUE, sep=",")

# merge fields into a common dataframe
xy <- data.frame(time, word = as.factor(csvdata$keyword), count = rpois(length(time), lambda = 5))

library(ggplot2)

# draw the chart
ggplot(xy, aes(x = time, y = count, color = word)) +
  theme_bw() +
  scale_color_brewer(palette = "Set1") +  # choose appropriate palette
  geom_line()

我无法使用您提供的数据进行复制。它似乎是畸形的。 通过一些虚拟数据,我能够生成您描述的图

library(ggplot2)

# create dummy data
xy <- data.frame(word=as.factor(c('a','a','b','b','c','c')),time=as.Date(c('2018/08/09','2018/08/06','2018/08/07','2018/08/08','2018/08/05','2018/08/03')), count = c(123,241,191,301,199,221))

# draw the chart
ggplot(xy, aes(x = time, y = count, color = word)) +
theme_bw() +
scale_color_brewer(palette = "Set1") +  # choose appropriate palette
geom_line()
库(ggplot2)
#创建虚拟数据

你能分享你的数据吗?例如,使用dput(csvdata)添加了一个样本。您的数据样本格式不正确。另外,
时间是如何定义的?更新了数据。现在它开始工作了。很抱歉时间以YYYY/MM/DD的形式定义为一天。小时和分钟不在其中。在
ggplot
中引用的3个列名中,只有1个在示例数据中。匹配列名和绘图后,您应该得到以下警告:“geom_路径:每个组仅由一个观察值组成。您需要调整组美学吗?”这应该向您指出,您的“时间戳”实际上是一个因素
geom_线
将期望x轴上的连续值
library(ggplot2)

# create dummy data
xy <- data.frame(word=as.factor(c('a','a','b','b','c','c')),time=as.Date(c('2018/08/09','2018/08/06','2018/08/07','2018/08/08','2018/08/05','2018/08/03')), count = c(123,241,191,301,199,221))

# draw the chart
ggplot(xy, aes(x = time, y = count, color = word)) +
theme_bw() +
scale_color_brewer(palette = "Set1") +  # choose appropriate palette
geom_line()