小编AJM*_*JMA的帖子

在ggplot2,我怎么能修改axis.line.y只对sec.axis(如果可能的话)？

    p <- ggplot(mtcars, aes(cyl, mpg)) +
      geom_point()

    # Create a simple secondary axis
    p + scale_y_continuous(sec.axis = sec_axis(~.+10)) +
      theme(axis.line.y = element_line(color = "red"),
            # I can modify text color but not sure about line?
            axis.text.y.right = element_text(color = "red"))

更新:如评论beloew所示,对右轴元素的完全控制现在包含在ggplot2的开发版本中 theme( axis.line.y.right = element_line(color = "red"), axis.ticks.y.right = element_line(color = "red"))

为了使用 magick 包创建 .gif，我如何一次读取多个图像？

我在列表对象中成功导入它们，但从image_animate().

# read all files in folder (only .png files)
capturas <- list.files("./path/to/images/")

# get all images in a list
images <- vector()
for (i in seq_along(capturas)) {
  images[i] <- list(image_read(str_c("./path/to/images/", capturas[i])))}

image_animate(image_scale(images, "500x500"), fps = 1, dispose = "previous")

得到以下错误：

> image_animate(image_scale(images, "500x500"), fps = 2, dispose = "previous")
Error: The 'image' argument is not a magick image object.

image_read在每个图像上单独使用时可以正常工作......

img_1 <- image_read(str_c("./path/to/images/", capturas[1]))
img_2 <- image_read(str_c("./path/to/images/", capturas[2]))
img_3 <- image_read(str_c("./path/to/images/", capturas[3])) …

如何使用自包含图像从.Rmd文件生成html文档？我正在使用该bsplus包rmarkdown以创建图像的旋转木马.当我.html在.Rproj工作目录中打开输出时,它工作正常,但是当我将文件发送给某人时,图像不再显示.

是否有可能获得带有相应图像的"自包含".html文件输出？或者我应该发送所有文件夹依赖项？

代码如何看起来的例子......

---
title: "test"
author: "me"
date: "today"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## R Markdown

This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see <http://rmarkdown.rstudio.com>.

When you click the **Knit** button a document will be generated that includes both content as well as the output …

生成 Rmarkdown.html文档时，是否可以有选择地选择要显示的目录的默认部分？我有一份正在进行的 Rmd 报告，该报告会定期更新，我希望以前的目录部分可用，但已折叠，并且仅扩展了最新（或明确指示的部分）。

---
title: "Main document"
date: "16 March 2018"
output: 
  html_document:
    mode: selfcontained
    toc: true
    toc_float: true
    toc_depth: 2
---

```{r child = 'document1.Rmd'}
```

```{r child = 'document2.Rmd'}
```

```{r child = 'document3.Rmd'}
```

给定data.frame A,我如何使用下标的行和列名称？最终我想通过rmarkdown中的kable()生成一个表(输出:word文档).

A <- data.frame(round(replicate(3, runif(2)),2))
rownames(A) <- c("Hola123", "Hola234")
A

          X1   X2   X3
Hola123 0.47 0.55 0.66
Hola234 0.89 0.45 0.20

在通过kable(A)创建表时,如何从列名和列名中下标所有数字？

我试过了:

rownames(A) <- c(expression(Hola["123"]), expression(Hola["234"]))
names(A) <- c(expression(X["1"]), expression(X["2"]), expression(X["3"]))

但是在.rmd文件中通过kable()创建表时,它不会出现下标.

在MATLAB中,给定一个36 x 17矩阵A,我想平均每列的每6个元素,创建一个6 x 17矩阵B.我可以使用以下代码实现它:

A = rand(36, 17);

B = [mean(A(1:6:36,:)); mean(A(2:6:36,:)); mean(A(3:6:36,:)); mean(A(4:6:36,:)); mean(A(5:6:36,:)); mean(A(6:6:36,:))];

虽然语法不是太长,但我想知道我是否可以通过更紧凑,更有效的方式获得相同的结果(即使用bsxfun或arrayfun？)

我±通过直接粘贴给定脚本多次使用了加号 - 减号().例如:

paste("Mean", "SD", sep = " ± ")

但是,当我重新启动R会话时,会出现一个?符号,如下所示:

paste("Mean", "SD", sep = " ? ")

我究竟做错了什么？我应该使用不同的方法在我的R脚本中键入此符号吗？

在MATLAB中,给定一个矩阵A,我想创建一个B包含矩阵元素的矩阵,A作为第一列元素的百分比.以下代码执行此操作:

A = randi(5,6);

B = zeros(size(A,1), size(A,2));
for kk = 1:size(A,2)
    B(:,kk) = (A(:,kk).*100)./ A(:,1)-100;
end

但是,如何通过矢量化在单行中实现相同的结果？就arrayfun在这个问题有用吗？