1

*编辑以简化示例

我正在尝试使用 apa_table() 为评论文件包含一个包含排除标准的表。我已经在 excel 中制作了表格，但我正在尝试将 Rstudio 和 Rmarkdown 用于我所有的学术写作。

表格在excel中看起来像这样

包容性 排除 基本原理
1. 发表 同行评审期刊 同行评审期刊以外的来源（即专业出版物、灰色文献） 为确保质量...
2.文章类型 展示适合分析和综合的方法和结果的研究/实证文章 描述干预措施但未提供研究结果的文章（即治疗手册） 为了评估给定的证据...
3. 语言 以英文发表或提供的文章 没有英文的文章 无法使用翻译服务
4.节目类型 明确针对...的程序 不包括的干预措施...... 为确保审查重点...

我在 python 和网状结构中更舒服，我想我可以将 Pandas 数据框传递给 R 并制作表格，但是当我这样做时，针织文档会显示如下表格：

从代码编织

我也刚刚尝试使用降价文本，结果是......更接近

来自 mdtext

我使用的代码是

df <- data.frame(inclusion <- c('Peer reviewed Journal articles', 
    'Research/Empirical articles presenting methods and results suitable for analysis and synthesis',
    'Articles published or available in English',
    'Programs that explicitly include...'),
exclusion <- c('Sources other than peer reviewed journals (i.e. professional publications)',
    'Articles describing interventions without presenting research findings (i.e. theraputuc manuals)',
    'Articles unavailable in English',
    'Interventions that do not include a...'),
rationale <- c('To ensure the quality of included...',
    'To evaluate only empirical evidence for a given program/intervention rather than...',
    'No access to translation service',
    'To ensure the review focuses on the outcomes of hero based interventions')
)

rownames(df) <- c('1. Publication type',
                  '2. Article type',
                  '3. Language',
                  '4. Program type')

colnames(df) <- c('Inclusion', 'Exclusion', 'Rationale')

library(papaja)
apa_table(
  df
  , caption = "Inclusion/Exclusion Criteria"
  , note = NULL
)

我也通读了这个页面的apa_table()论点，但没有任何运气。任何帮助，将不胜感激。

4

2 回答 2

1

在papaja手册中，对于这样的情况有一个有用的技巧：Fixed-width columns

apa_table(
  df
  , caption = "Inclusion/Exclusion Criteria"
  , align = c("p{3cm}", rep("p{3.6cm}", ncol(df)))
  , font_size = "footnotesize"
)

诀窍是通过参数为每列指定一个固定的宽度align。在这里，我为第一列（您的行名）指定 3 厘米，为每个正确的列指定 3.6 厘米（这p意味着在每个表格单元格的顶部垂直对齐，但还有其他选项）。只是为了让整个事情更漂亮，我通过指定使用较小的字体font_size = "footnotesize"。

PDF 文档中的输出如下所示： 在此处输入图像描述

于 2021-07-27T17:12:23.140 回答
0

回答以防万一这有助于处于我位置的人。

根据上述评论的反馈，我找到了一个适合我需要的解决方案。我敢肯定，对 R 和 LaTex 更胜任的人可能会产生比这更好的解决方案，但这对我有用。

我首先运行该apa_table()函数来查看输出


df <- data.frame(inclusion <- c('Peer reviewed Journal articles', 
    'Research/Empirical articles presenting methods and results suitable for analysis and synthesis',
    'Articles published or available in English',
    'Programs that explicitly include...'),
exclusion <- c('Sources other than peer reviewed journals (i.e. professional publications)',
    'Articles describing interventions without presenting research findings (i.e. theraputuc manuals)',
    'Articles unavailable in English',
    'Interventions that do not include a...'),
rationale <- c('To ensure the quality of included...',
    'To evaluate only empirical evidence for a given program/intervention rather than...',
    'No access to translation service',
    'To ensure the review focuses on the outcomes of hero based interventions')
)

rownames(df) <- c('1. Publication type',
                  '2. Article type',
                  '3. Language',
                  '4. Program type')
colnames(df) <- c('Inclusion', 'Exclusion', 'Rationale')

apa_table(
  df
  , caption = "Inclusion/Exclusion Criteria"
  , note = NULL
)

这会产生输出

展示适合分析和综合的方法和结果的研究/实证文章 & 描述干预但不展示研究结果的文章（即治疗手册） & 仅评估给定项目/干预的经验证据，而不是...\\\n3。以英语发表或提供的语言和文章以及以英语不可用的文章 & 无法使用翻译服务\\\n4. 计划类型 & 明确包含...的计划 & 不包含...的干预 & 确保审查重点关注基于英雄的干预的结果\\\n\bottomrule\n\end{tabular}\n\n \end{threeparttable}\n\end{center}\n\n\end{table}\n\n\n" 治疗手册）& 仅评估给定计划/干预的经验证据，而不是...\\\n3。以英语发表或提供的语言和文章以及以英语不可用的文章 & 无法使用翻译服务\\\n4. 计划类型 & 明确包含...的计划 & 不包含...的干预 & 确保审查重点关注基于英雄的干预的结果\\\n\bottomrule\n\end{tabular}\n\n \end{threeparttable}\n\end{center}\n\n\end{table}\n\n\n" 治疗手册）& 仅评估给定计划/干预的经验证据，而不是...\\\n3。以英语发表或提供的语言和文章以及以英语不可用的文章 & 无法使用翻译服务\\\n4. 计划类型 & 明确包含...的计划 & 不包含...的干预 & 确保审查重点关注基于英雄的干预的结果\\\n\bottomrule\n\end{tabular}\n\n \end{threeparttable}\n\end{center}\n\n\end{table}\n\n\n"

然后，我使用这个有用的页面以及原始问题评论中提供的资源，将那堵文本墙编辑为texrmarkdown 块

\begin{table}[tbp]
\begin{center}
\begin{threeparttable}
\caption{test caption}
\begin{tabular}{p{4cm} p{4cm} p{4cm} p{4cm}}
\hline
\toprule & \multicolumn{1}{c}{Inclusion} & \multicolumn{1}{c}{Exclusion} & \multicolumn{1}{c}{Rationale}\\
\hline
\midrule 1. Publication type & Peer reviewed Journal articles & Sources other than peer reviewed journals (i.e. professional publications) & To ensure the quality of included...\\
2. Article type & Research/Empirical articles presenting methods and results suitable for analysis and synthesis & Articles describing interventions without presenting research findings (i.e. theraputuc manuals) & To evaluate only empirical evidence for a given program/intervention rather than...\\
3. Language & Articles published or available in English & Articles unavailable in English & No access to translation service\\
4. Program type & Programs that explicitly include... & Interventions that do not include a... & To ensure the review focuses on the outcomes of hero based interventions\\
\bottomrule
\hline
\end{tabular}
\end{threeparttable}
\end{center}
\end{table}

基本上，这只是从字符串输出中删除 unicode 以使其成为 LaTex 代码，然后编辑 Latex 代码以获得所需的输出。

我确信这个答案和问题一样糟糕，但希望它可以帮助那里的人。

[乳胶编辑块1

于 2021-07-27T14:50:56.387 回答