小编Dar*_*elf的帖子

这是我正在使用的一些数据的最小工作示例.

set.seed(42)

value <- sample(1:10, 10)
group <- rep(700, each= 10)
order <- c(1,1,1,2,2,2,2,2,2,2)

df <- as.data.frame(cbind(value, group, order))

    value group order
1     10   700     1
2      9   700     1
3      3   700     1
4      6   700     2
5      4   700     2
6      8   700     2
7      5   700     2
8      1   700     2
9      2   700     2
10     7   700     2

我想按"组"和"顺序"进行分组,然后找到滞后于"顺序"的值的平均值.理想情况下,这会生成一个看起来像的数据框

    value group order mean
1     10   700     1   NA
2      9   700     1   NA
3      3   700 …

我正在使用 knit 编写 .Rnw 文件和 stargazer 包来构建回归输出表。在大多数情况下，它工作得很好，但我想将桌子旋转 90 度，就像我可以在 LaTeX 中使用\usepackage{sidewaystable}.Rnw 之外轻松做到的那样

\documentclass{article}

\begin{document}

<<table1, echo=FALSE, message=F, warning=F, results="asis">>=
library(stargazer)
lm1 <- lm(mpg ~ wt, data = mtcars)
lm2 <- lm(mpg ~ hp, data = mtcars)
lm3 <- lm(mpg ~ cyl, data = mtcars)
lm4 <- lm(mpg ~ disp, data = mtcars)

stargazer(lm1, lm2, lm3, lm4, title = "Basic OLS Models", omit.stat = c("f",    "ser"))
@
\end{document}