在 RStudio 中以第三个变量作为颜色的 2d 图

Question

我有一个包含三列的 CSV 数据集：

• 时间戳（例如 2018/12/15）
• 关键字（例如“你好”）
• 计数（例如 7）

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

CSV 只有约 30.000 行，R 在专用机器上运行。性能可以忽略。

我在这个论坛中尝试了使用 mathplot 和 ggplot 的各种方法，但没有让它与我自己的数据一起使用。

在 R 中最简单的解决方案是什么？

谢谢！

编辑：

我尝试自定义 Romans 代码并尝试了以下操作：

`csvdata <- read.csv("c:/mydataset.csv", header=TRUE, sep=",")  

time <- csvdata$timestamp  
count <- csvdata$count  
keyword <- csvdata$keyword  

time <- rep(time)  
xy <- data.frame(time, word = c(keyword), count, lambda = 5)  

library(ggplot2)  

ggplot(xy, aes(x = time, y = count, color = keyword)) +  
  theme_bw() +  
  scale_color_brewer(palette = "Set1") +  # choose appropriate palette  
  geom_line()`

这会创建一个正确的画布，但其中没有点/线...

数据：

头部（csvdata）

keyword count  timestamp
1 non-distinct-word     3 2018/08/09
2 non-distinct-word     2 2018/08/10
3 non-distinct-word     3 2018/08/11

str(csvdata)

'data.frame':   121 obs. of  3 variables:
 $ keyword  : Factor w/ 10 levels "non-distinct-word",..: 5 5 5 5 5 5 5 5 5 5 ...
 $ count    : int  3 2 3 1 6 6 2 3 2 1 ...
 $ timestamp: Factor w/ 103 levels "2018/08/09","2018/08/10",..: 1 2 3 4 5 6 7 8 9 10 ...

Answer 1

这样的？

# Generate some data. This is the part poster of the question normally provides.
today <- as.Date(Sys.time())
time <- rep(seq.Date(from = today, to = today + 30, by = "day"), each = 2)
xy <- data.frame(time, word = c("hello", "world"), count = rpois(length(time), lambda = 5))

library(ggplot2)

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