R 2d绘图为空(第三个变量的2行和线颜色)
我想要一个图,其中相同关键字的所有行相互连接,时间戳在X轴上,计数在Y轴上。我想每个关键字都有一个不同的颜色为其行和行被标记的关键字 感谢@I,我成功地获得了以下信息: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=",") #
#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()