小编Bil*_*llH的帖子

我正在使用 R 在组织模式下创建各种表，并希望将它们包含在导出为 PDF 的文件中。其中一些表格对于标准页面来说太宽，有些表格可能太长。我已经弄清楚如何旋转组织表，但我确实需要旋转作为代码块输出的表。

我浏览了组织手册，https://orgmode.org/worg/org-contrib/babel/languages/ob-doc-R.html，建议的问题，https://raw.githubusercontent.com/ dfeich/org-babel-examples/和其他地方。这些要么没有提供解决方案，要么我不明白。

借用https://github.com/dfeich/org-babel-examples/tree/master/latex，我将这些行附加到我的组织文件的前端：

#+latex_compiler: pdflatex
#+LATEX_HEADER_EXTRA: \usepackage{rotfloat}
#+LATEX_HEADER_EXTRA: \usepackage{lmodern}
#+LATEX_HEADER: \hypersetup{colorlinks=true, linkcolor=blue}
#+LATEX_HEADER_EXTRA: \usepackage{tabularx}
#+LATEX_HEADER_EXTRA: \usepackage{tabu,longtable}
#+LATEX_HEADER_EXTRA: \usepackage{booktabs}

并创建了一个像这样的表：

#+NAME: widetbltest
#+CAPTION: Sideways Table Test
#+ATTR_LATEX: :float sideways :placement [H]
#+HEADER: :exports results :results table latex :colnames yes
#+begin_src R
  y  <- data.frame(
      a = seq(1,20,by = 1),
      b = seq(1,20,by = 1),
      c = seq(1,20,by = 1),
      d = seq(1,20,by = 1),
      e = seq(1,20,by = 1),
      f …

我想做相当于将 gpm（每英里加仑数 = 1/mpg）模型拟合到 mtcars 数据集中的 wt。这似乎很容易：

data(mtcars)
library(dplyr)
library(tidyr)
library(broom)
library(ggplot2)
library(scales)

mtcars2 <-
    mtcars %>%
    mutate(gpm = 1 / mpg) %>%
    group_by(cyl, am)

lm1 <-
    mtcars2 %>%
    do(fit = lm(gpm ~ wt, data = .))

正如预期的那样，这为我提供了一个 6 行的 rowwise 数据框。

此图确认有六组：

p1 <-
    qplot(wt, gpm, data = mtcars2) +
    facet_grid(cyl ~ am) +
    stat_smooth(method='lm',se=FALSE, fullrange = TRUE) +
    scale_x_continuous(limits = c(0,NA)) 

我可以使用 Augment() 来获得拟合的输出：

lm1 %>% augment(fit)

正如预期的那样，这给了我 32 行，mtcars2 中的每一行。

现在的挑战是：我想使用 newdata 获得拟合输出，其中我已将 wt 增加了 cyl/4：

newdata …