- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有以下 df(仅示例)
>ts_data_1
Month drepo drevrepo dbankrate dCRR dCallrate dWPI dGDP dFED dwidth
2001-05-01 2001-05-01 -0.25 -0.25 0.0 -0.50 0.54 0.19 0.0 -0.50 0
2001-06-01 2001-06-01 -0.25 0.00 0.0 0.00 -0.79 -0.30 0.0 -0.25 -25
2001-07-01 2001-07-01 0.00 0.00 0.0 0.00 -0.05 -0.07 0.7 0.00 0
2001-08-01 2001-08-01 0.00 0.00 0.0 0.00 -0.25 0.18 0.0 -0.25 0
2001-09-01 2001-09-01 0.00 0.00 0.0 0.00 0.36 -0.89 0.0 -0.50 0
2001-10-01 2001-10-01 0.00 0.00 -0.5 0.00 0.10 -1.61 1.5 -0.50 0
2001-11-01 2001-11-01 0.00 0.00 0.0 -1.75 -0.43 -0.32 0.0 -0.50 0
2001-12-01 2001-12-01 0.00 0.00 0.0 -0.25 0.11 -0.51 0.0 -0.25 0
2002-01-01 2002-01-01 0.00 0.00 0.0 0.00 -0.45 -0.57 -0.4 0.00 0
2002-02-01 2002-02-01 0.00 0.00 0.0 0.00 0.10 -0.12 0.0 0.00 0
dnse dusd
2001-05-01 42.65 0.13352941
2001-06-01 -60.00 0.08450000
2001-07-01 -35.05 0.13731818
2001-08-01 -19.10 -0.01481818
2001-09-01 -139.90 0.51900000
2001-10-01 58.05 0.37447619
2001-11-01 95.25 -0.02310777
2001-12-01 -8.10 -0.07473684
2002-01-01 16.35 0.39258581
2002-02-01 66.65 0.37628261
我运行了一个 for 循环来逐一绘制所有时间序列:
for(i in tail(colnames(ts_data_1), -1)){
gg <- ggplot(ts_data_1, aes_string(x = "Month", y = i)) +
geom_line(size=1.05,colour="#0072B2") + scale_x_date(date_breaks = "2 year",date_labels = "%Y")+ xlab('\nYear') + ggtitle(paste(i,"(Differenced Timeseries)\n")) + theme_bw()
print(gg)
}
这绘制了一张图在另一张下方。我正在寻找一种方法来在单个图框中以 2 列的网格形式绘制所有内容。已经查看了 cowplot 包的 grid.arrange 和 plot_grid fn,但无法使其在循环中工作。在这里需要帮助!
PS:重现性数据
ts_data_1<-structure(list(Month = structure(c(11443, 11474, 11504, 11535,
11566, 11596, 11627, 11657, 11688, 11719), class = "Date"), drepo = c(-0.25,
-0.25, 0, 0, 0, 0, 0, 0, 0, 0), drevrepo = c(-0.25, 0, 0, 0,
0, 0, 0, 0, 0, 0), dbankrate = c(0, 0, 0, 0, 0, -0.5, 0, 0, 0,
0), dCRR = c(-0.5, 0, 0, 0, 0, 0, -1.75, -0.25, 0, 0), dCallrate = c(0.539999999999999,
-0.789999999999999, -0.0499999999999998, -0.25, 0.359999999999999,
0.100000000000001, -0.430000000000001, 0.11, -0.45, 0.100000000000001
), dWPI = c(0.19, -0.3, -0.0699999999999994, 0.18, -0.890000000000001,
-1.61, -0.32, -0.51, -0.57, -0.12), dGDP = c(0, 0, 0.7, 0, 0,
1.5, 0, 0, -0.399999999999999, 0), dFED = c(-0.5, -0.25, 0, -0.25,
-0.5, -0.5, -0.5, -0.25, 0, 0), dwidth = c(0L, -25L, 0L, 0L,
0L, 0L, 0L, 0L, 0L, 0L), dnse = c(42.6500000000001, -60, -35.0500000000002,
-19.0999999999999, -139.9, 58.05, 95.2500000000001, -8.10000000000014,
16.3500000000001, 66.6499999999999), dusd = c(0.133529411764705,
0.0844999999999985, 0.137318181818202, -0.0148181818181996, 0.518999999999998,
0.374476190476202, -0.0231077694236035, -0.0747368421051959,
0.392585812356998, 0.376282608695597)), .Names = c("Month", "drepo",
"drevrepo", "dbankrate", "dCRR", "dCallrate", "dWPI", "dGDP",
"dFED", "dwidth", "dnse", "dusd"), row.names = c("2001-05-01",
"2001-06-01", "2001-07-01", "2001-08-01", "2001-09-01", "2001-10-01",
"2001-11-01", "2001-12-01", "2002-01-01", "2002-02-01"), class = "data.frame")
最佳答案
如果将数据转换为 long format,任务会变得更容易首先,例如,使用 tidyr
包中的 gather
。
然后您可以执行以下操作。
require(ggplot2)
require(tidyr)
data %>%
gather(variable,value,-Month) %>%
ggplot(aes(x=Month,y=value)) + facet_wrap(~variable) + geom_line()
如果您希望所有绘图都有自己的 y 尺度,则将 scales="free_y"
添加到对 facet_wrap
的调用中:
ts_data_1 %>%
gather(variable, value, -Month) %>%
ggplot(aes(x=Month,y=value)) + geom_line() + facet_wrap(~variable,scales="free_y")
data %>%
gather(variable,value,-Month) %>%
ggplot(aes(x=Month,y=value,color=variable)) + geom_line()
关于r - 如何排列从 for 循环创建的 ggplots,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/48842011/
前言: 有时候,一个数据库有多个帐号,包括数据库管理员,开发人员,运维支撑人员等,可能有很多帐号都有比较大的权限,例如DDL操作权限(创建,修改,删除存储过程,创建,修改,删除表等),账户多了,管理
所以我用 Create React App 创建并设置了一个大型 React 应用程序。最近我们开始使用 Storybook 来处理和创建组件。它很棒。但是,当我们尝试运行或构建应用程序时,我们不断遇
遵循我正在创建的控件的代码片段。这个控件用在不同的地方,变量也不同。 我正在尝试编写指令来清理代码,但在 {{}} 附近插入值时出现解析错误。 刚接触 Angular ,无法确定我错过了什么。请帮忙。
我正在尝试创建一个 image/jpeg jax-rs 提供程序类,它为我的基于 post rest 的 Web 服务创建一个图像。我无法制定请求来测试以下内容,最简单的测试方法是什么? @POST
我一直在 Windows 10 的模拟器中练习 c。后来我改用dev C++ IDE。当我在 C 中使用 FILE 时。创建的文件的名称为 test.txt ,而我给出了其他名称。请帮助解决它。 下面
当我们创建自定义 View 时,我们将 View 文件的所有者设置为自定义类,并使用 initWithFrame 或 initWithCode 对其进行实例化。 当我们创建 customUITable
我正在尝试为函数 * Producer 创建一个线程,但用于创建线程的行显示错误。我为这句话加了星标,但我无法弄清楚它出了什么问题...... #include #include #include
今天在做项目时,遇到了需要创建JavaScript对象的情况。所以Bing了一篇老外写的关于3种创建JavaScript对象的文章,看后跟着打了一遍代码。感觉方法挺好的,在这里与大家分享一下。 &
我正在阅读将查询字符串传递给 Amazon 的 S3 以进行身份验证的文档,但似乎无法理解 StringToSign 的创建和使用方式。我正在寻找一个具体示例来说明 (1) 如何构造 String
前言:我对 C# 中任务的底层实现不太了解,只了解它们的用法。为我在下面屠宰的任何东西道歉: 对于“我怎样才能开始一项任务但不等待它?”这个问题,我找不到一个好的答案。在 C# 中。更具体地说,即使任
我有一个由一些复杂的表达式生成的 ILookup。假设这是按姓氏查找人。 (在我们简单的世界模型中,姓氏在家庭中是唯一的) ILookup families; 现在我有两个对如何构建感兴趣的查询。 首
我试图创建一个 MSI,其中包含 和 exe。在 WIX 中使用了捆绑选项。这样做时出错。有人可以帮我解决这个问题。下面是代码: 错误 error LGH
在 Yii 中,Create 和 Update 通常使用相同的形式。因此,如果我在创建期间有电子邮件、密码、...other_fields...等字段,但我不想在更新期间专门显示电子邮件和密码字段,但
上周我一直在努力创建一个给定一行和一列的 QModelIndex。 或者,我会满足于在已经存在的 QModelIndex 中更改 row() 的值。 任何帮助,将不胜感激。 编辑: QModelInd
出于某种原因,这不起作用: const char * str_reset_command = "\r\nReset"; const char * str_config_command = "\r\nC
现在,我有以下由 original.df %.% group_by(Category) %.% tally() %.% arrange(desc(n)) 创建的 data.frame。 DF 5),
在今天之前,我使用/etc/vim/vimrc来配置我的vim设置。今天,我想到了创建.vimrc文件。所以,我用 touch .vimrc cat /etc/vim/vimrc > .vimrc 所
我可以创建一个 MKAnnotation,还是只读的?我有坐标,但我发现使用 setCooperative 手动创建 MKAnnotation 并不容易。 想法? 最佳答案 MKAnnotation
在以下代码中,第一个日志语句按预期显示小数,但第二个日志语句记录 NULL。我做错了什么? NSDictionary *entry = [[NSDictionary alloc] initWithOb
我正在使用与此类似的代码动态添加到数组; $arrayF[$f+1][$y][$x+1] = $value+1; 但是我在错误报告中收到了这个: undefined offset :1 问题:尝试创
我是一名优秀的程序员,十分优秀!