R 从字符中获取匹配行并打印ts

我有一个包含日期、数量和公司等列的数据框架。 我想知道如何为每家公司只保留一条线路

grep返回行数，但我如何才能得到完整的行数

此外，我如何在一个时间序列图上绘制每个公司的这些卷

我找到了plot.ts，但我不能这样做，因为我没有每个公司的卷，就好像我在plot.ts我的完整数据集上一样。它不会造成公司之间的差异，然后有一个错误的时间序列，一个日期有许多点

我想要一个这样的情节： 但我的公司/主题的名称不是网站，而是鞋子、袜子、蕾丝

或者像那样，但是有很多

我的数据就是这样的：

> 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

---

多谢各位

我还不完全清楚你拥有什么和你想要什么。没有一个可复制的例子是非常困难的

我假设您想按公司和日期汇总数据。您可以通过使用data.table包来实现这一点：

---

此解决方案是通用的，因为您的问题中没有很好地定义所需的输出，因此可能需要一些小的调整。

如果可以帮助其他人，我找到了如何执行此解决方案：

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

---

我建议您向我们提供一份报告，并向我们展示所需的输出结果。这可以是一个包含六行的小data.frame。

library(ggplot2)
library(scales)
pl<-ggplot(newdata,aes(x=Date,y=volume,group=`Company name`))+geom_line()+scale_x_date(format="%d-%m-%y")
pl

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