小编jb1*_*123的帖子

我正在尝试使用相同的x轴但不同的y轴创建多个绘图,因为我有两个具有不同范围的组的值.当我想控制轴的值(分别为y轴要达到从2000000到4.000.000和250.000 500.000),我不相处facet_grid与scales = "free".

所以我试过的是创建两个图(名为"plots.treat"和"plot.control")并将它们与grid.arrange和组合arrangeGrob.我的问题是,我不知道如何控制两个图的确切位置,因此两个y轴都位于一条垂直线上.因此,在下面的示例中,第二个图的y轴需要向右侧稍微定位.

这是代码:

# Load Packages
library(ggplot2)
library(grid)
library(gridExtra)

# Create Data
data.treat <- data.frame(seq(2005.5, 2015.5, 1), rep("SIFI", 11), 
                    c(2230773, 2287162, 2326435, 2553602, 2829325, 3372657, 3512437, 
                      3533884, 3519026, 3566553, 3527153))

colnames(data.treat) <- c("Jahr", "treatment", 
                          "Aggregierte Depositen (in Tausend US$)")

data.control <- data.frame(seq(2005.5, 2015.5, 1), rep("Nicht-SIFI", 11), 
                    c(324582, 345245, 364592, 360006, 363677, 384674, 369007,
                      343893, 333370, 318409, 313853))

colnames(data.control) <- c("Jahr", "treatment", 
                            "Aggregierte Depositen (in Tausend US$)")

# Create Plot …

我正在使用并通常使用+RStudio逐行运行我的代码。一般来说，这工作正常，但工作时我想运行我使用管道运算符编写的整个代码部分，CrtlEnterdplyr%>%

例如，我想立即执行以下代码部分，最好独立于管道代码行中的当前光标位置：

mtcars %>%
  filter(carb >= 2) %>%
  group_by(cyl) %>%
  summarise(mean.hp = mean(hp))

我可以逐行运行此命令或标记所有行，然后按Crtl+ Enter，但这两种方法都有点烦人。搜索互联网和“”中可用的 RStudio 选项，Tools/Modify Keyboard Shortcuts我只找到了其他选项，例如运行整个部分，从

# Example section--------------------