在 R 中按公司绘制情绪时间序列

Question

我想在 R 中进行情绪分析。有一个数据集，其中列 "Svolume" 的值为 1,5,41,... 另一列具有不同的公司名称。最后一列日期为 yyyy-mm-dd。

我想按每个公司的日期绘制时间序列，所以如果我有 3 个公司，我想有 3 行，x 轴是日期，y 轴是体积。

我写了这个：

data2=data[order(as.Date(data$Date, format="%d/%m/%Y")),]

为了按日期排序数据。

plot.ts(data2$Svolume)
axis(1,1:40,data2$Date)

然后绘制 Svolumes 的时间序列，然后将日期放在 X 轴上。我有两个问题：我只有一行，所以我看不出这 3 家公司之间的区别（如果可能的话，我也很想知道总数），我的第二个问题是无法读取日期因为有水平所以彼此写一个。有没有一种方法可以垂直书写日期以便于阅读？

我想要这样的情节：times series plot 1 但是 "websites" 有 "volumes" 而不是 "shoes,socks,lace" 有我的名字 companies/subjects

或者类似的，但是有 svolumes time series plot 2

我的数据是这样的：

> head(data)
            Date Time Subject  Sscore  Smean Svscore Sdispersion Svolume  Sbuzz    Last close
1 2015-07-08 09:10:00     MMM -0.2280 0.2593 -0.2795       0.375       8 0.6026 155.430000000
2 2015-07-08 09:10:00     ACE -0.4415 0.3521 -0.0374       0.500       4 0.7200 104.460000000
3 2015-07-07 09:10:00     AES  1.9821 0.0233  1.1743       1.000       1 1.9445  13.200000000
4 2015-07-04 09:10:00     AFL -2.9335 0.0035 -0.2975       1.000       1 0.8321  61.960000000
5 2015-07-07 09:10:00     MMM  0.2977 0.2713 -0.7436       0.400       5 0.4895 155.080000000
6 2015-07-07 09:10:00     ACE -0.2331 0.3519 -0.1118       1.000       3 0.7196 103.330000000
         Company name       Date
1          3M Company 2015-07-08
2         ACE Limited 2015-07-08
3 The AES Corporation 2015-07-07
4          AFLAC Inc. 2015-07-04
5          3M Company 2015-07-07
6         ACE Limited 2015-07-07

感谢您的帮助，对不起我的英语。

Answer 1

我找到了怎么做，如果它可以帮助别人：

library(ggplot2)
ggplot(data)+geom_line(aes(x=data$Date, y=data$Svolume,
+ group=data$Subject, color=data$Subject))

在 R 中按公司绘制情绪时间序列

Plot Times Series of Sentiment by Company in R

r

plot

time-series

axis