小编use*_*568的帖子

我是不熟悉Blogdown的人，并且通过神话般的资源来指导我。不幸的是，我无法在雨果中使用学术主题。要创建一个新站点，我需要：

1. 在全新的工作目录中创建了一个新的（空）项目。
2. 根据建议安装了博客和雨果

3. 尝试通过运行以下命令来创建新站点：

   blogdown :: new_site（theme =“ gcushen / hugo-academic”）

不幸的是，我随后遇到以下错误：

Error: Unable to find theme Directory: C:\Users\myusername\Documents\MyBlog\themes\academic

Error: Unable to find theme Directory: C:\Users\myusername\Documents\MyBlog\themes\academic

Error: Unable to find theme Directory: C:\Users\myusername\Documents\MyBlog\themes\academic

我还遇到以下问题：

Error in shell(cmd, mustWork = TRUE, intern = intern) : 
  '"C:\Users\myusername\AppData\Roaming\Hugo\hugo.exe" convert toYAML --unsafe' execution failed with error code 65535

我要去哪里错了？我也尝试使用该指南通过RStudio安装/创建，但是遇到了同样的问题。我是不熟悉Blogdown的人，因此需要任何帮助。

谢谢！

sessionInfo()
R version 3.5.2 (2018-12-20)
Platform: x86_64-w64-mingw32/x64 (64-bit)
Running under: Windows 7 x64 (build 7601) Service Pack 1

Matrix products: …

我希望为体育数据创建一个跑分线.例如,考虑我的数据如下:

df <- data.frame(Club = c("O", "H", "H", "O", "H", "O", "O"),
                 TimeOfScore = c("1:30", "2:06", "7:09", "9:09", "11:08", "14:32", "19:11"),
                 Points = c(1, 3, 1, 2, 2, 3, 3))

在上面,"df$Club==O"代表反对派的得分,而df$Club=="H".该列df$TimeOfScore表示分数何时发生.我想知道对手在主队前方或下方有多少分的得分线.

我的预期输出是:

df$Margin <- c(-1, 2, 3, 1, 3, 0, -3)

此输出基于反对队前方或下方与主队相比多少分.例如,对手队在1:30(1分30秒)得分1分,进入比赛.该时间点的相应保证金为-1或主队减少一个点.在下一次比赛中,主队得分为3分,然后是领先优势的2分.

我该怎么做呢？

我正在使用 RMarkdown 将各种 .pdf 文件提取到一个中央文件中。这些 .pdf 有多页长。我正在使用的代码是：

---
title: <center> <h1>Analysis Data</h1> </center>
mainfont: Arial
output:
  pdf_document:
    latex_engine: xelatex
sansfont: Arial
fig_crop: false
toc: true
classoption: landscape
fontsize: {10}
geometry: margin=0.30in
header-includes:
- \usepackage{booktabs} 
- \usepackage{sectsty} \sectionfont{\centering}
- \renewcommand{\contentsname}{}\vspace{-2cm} 
---
# File One
\begin{center} 
\includegraphics[width=9.5in]{~/Desktop/DatasetOne.pdf} 
\end{center}
\newpage
# File Two 
\begin{center} 
\includegraphics[width=9.5in]{~/Desktop/DatasetTwo.pdf} 
\end{center}

但是，当我将最终的 .pdf 编织在一起时，仅包含每个 .pdf 文档的第一页（“DatasetOne.pdf”和“DatasetTwo.pdf”），而不包含整个文档。

是否可以浏览整个 .pdf 而不仅仅是第一页？

谢谢。

我的数据集很大,在测试会话的设定期间(期间)内对个人(姓名)包含许多观察(从属变量= DV).我的数据集的一个小例子如下:

ExampleData <- data.frame(Name = c("Tom","Tom","Tom","Tom","Tom","Tom","Tom","Tom", "Tom", "Tom", 
                                   "Ben","Ben","Ben","Ben","Ben","Ben","Ben","Ben", "Ben", "Ben"),
                          Period = c(0,0,1,1,1,0,0,0,1,1, 
                                      0,0,0,1,1,1,0,0,1,1),
                          DV = runif(20, 1.5, 2.8))

当ExampleData$Period==1个人进行运动测试时,其时间/长度会有所不同.每次测试之间的间隔都表示为ExampleData$Period==0.为了避免在一个人正在进行测试并添加连续时段时手动输入,我希望包含一个列,该列声明何时由一组0组成的1组是一个新的时段 - 跨越每个人的数据.我该怎么做呢？

我的预期输出是:

ExampleData$Descriptor <- c(NA,NA,"Period One", "Period One","Period One",NA,NA,NA,"Period Two","Period Two",
                        NA,NA,NA,"Period One","Period One","Period One",NA,NA,"Period Two","Period Two")

我的问题是相似的另一矿井,位于这里,虽然我现在已经为每个单独的多个条目.我尝试过dplyr语法:

Test_df <- ExampleData %>%
  mutate(
    Descriptor = case_when(
      Period > 0 ~ "Period",
      Period == 0 ~ "Rest"),
    rleid = cumsum(Descriptor != lag(Descriptor, 1, default = "NA")), 
    Descriptor = case_when(
      Descriptor == "Period" …