我有一些类似于data.frame d以下的数据.

d <- structure(list(ID = c("KP1009", "GP3040", "KP1757", "GP2243", 
                           "KP682", "KP1789", "KP1933", "KP1662", "KP1718", "GP3339", "GP4007", 
                           "GP3398", "GP6720", "KP808", "KP1154", "KP748", "GP4263", "GP1132", 
                           "GP5881", "GP6291", "KP1004", "KP1998", "GP4123", "GP5930", "KP1070", 
                           "KP905", "KP579", "KP1100", "KP587", "GP913", "GP4864", "KP1513", 
                           "GP5979", "KP730", "KP1412", "KP615", "KP1315", "KP993", "GP1521", 
                           "KP1034", "KP651", "GP2876", "GP4715", "GP5056", "GP555", "GP408", 
                           "GP4217", "GP641"),
                    Type = c("B", "A", "B", "A", "B", "B", "B", 
                             "B", "B", "A", "A", "A", "A", "B", "B", "B", "A", "A", "A", "A", 
                             "B", "B", …

如何避免以下R CMD check使用新R开发版本出现的注意事项(R Under development(unstable)(2017-02-15 r72179))？

• checking for unstated dependencies in examples ... OK
• checking line endings in C/C++/Fortran sources/headers ... OK
• checking compiled code ... NOTE
File ‘pkgname/libs/pkgname.so’:
  Found no calls to: ‘R_registerRoutines’, ‘R_useDynamicSymbols’

It is good practice to register native routines and to disable symbol
search.

例如在Hmisc中

如何在rmarkdown beamer演示文稿的新行中添加作者联盟？

---
title: "This is the title"
author: "Author"
date: "Thursday, April 09, 2015"
output: beamer_presentation
---
## Slide with Bullets

- Bullet 1
- Bullet 2
- Bullet 3

欲望标题幻灯片应该是

这是标题

作者

联系

2015年4月9日,星期四

我有一个向量列表如下.

data <- list(v1=c("a", "b", "c"), v2=c("g", "h", "k"), 
             v3=c("c", "d"), v4=c("n", "a"), v5=c("h", "i"))

我正在努力实现以下目标

1)检查任何矢量是否相互交叉.

2)如果找到相交的向量,得到它们的联合.

所以期望的输出是

out <- list(v1=c("a", "b", "c", "d", "n"), v2=c("g", "h", "k", "i"))

我可以得到一组相交集的并集,如下所示.

 Reduce(union, list(data[[1]], data[[3]], data[[4]]))
 Reduce(union, list(data[[2]], data[[5]])

如何首先识别交叉向量？有没有办法将列表划分为相交矢量组列表？

更新

这是使用data.table的尝试.获得所需的结果.但是对于大型列表仍然很慢,就像在这个示例数据集中一样

datasets. 
data <- sapply(data, function(x) paste(x, collapse=", "))
data <- as.data.frame(data, stringsAsFactors = F)

repeat {
  M <- nrow(data)
  data <- data.table( data , key = "data" )
  data <- data[ , list(dataelement = unique(unlist(strsplit(data , ", …

我有什么方法可以避免修改副本的原位修改R？

我试图将较小的矩阵复制到一个较大的矩阵切片,如下所示.

library(data.table)
y <- matrix(c(11,21,31,12,22,32),nrow=3,ncol=2)
address(y)
[1] "08429190"

y[2:3,] <- matrix(c(1,1,8,12),nrow=2)
address(y)
[1] "0E033D28"

我有一个d带字母数字字符的字符向量

d <- c("012309 template", "separate 00340", "00045", "890 098", "3405 garage", "matter00908")

d
[1] "012309 template" "separate 00340"  "00045"           "890 098"         "3405 garage"     "matter00908"  

如何从R中的所有数字中删除前导零？ as.numeric将仅在数字或整数向量中删除所有前导零.我尝试过gsub,regex但无法获得理想的结果.

预期输出如下

out <- c("12309 template", "seperate 340", "45", "890 98", "3405 garage", "matter908")
out
[1] "12309 template" "seperate 340"   "45"             "890 98"         "3405 garage"    "matter908"  

我在Windows环境中使用RStudio进行包开发.我需要启用pdf晕影压缩以避免'gs+qpdf' made some significant size reductions:警告.

我已经添加了--compact-vignettes="gs+qpdf"作为项目选项的附加选项:构建工具 > 构建源包,但使用的源包中的pdf vignette的大小没有变化devtools::build().

我还在vignette latex压缩选项中添加了YAML标题,如下所示.

header-includes:
- \pdfminorversion=5
- \pdfcompresslevel=9
- \pdfobjcompresslevel=2

仍然没有变化.

但是,当使用tools::compactPDF with gs_cmd = Sys.getenv("R_GSCMD")和gs_quality = "ebookarguments 时,我得到了所需的压缩.

如何在构建软件包时获得所需的压缩以避免警告？

我有一个字符向量t如下.

t <- c("GID456 SPK711", "GID456 GID667 VINK", "GID45345 DNP990 GID2345", 
    "GID895 GID895 K350")

我想提取所有以GID开头的字符串,然后是一系列数字.

这可以,但不检索多个实例.

gsub(".*(GID\\d+).*", "\\1", t)
[1] "GID456"  "GID667"  "GID2345" "GID895" 

在这种情况下如何提取所有字符串？所需的输出如下

out <- c("GID456", "GID456", "GID667", "GID45345", "GID2345", 
        "GID895", "GID895")

我试图将层次聚类的结果绘制R为树状图,矩形识别聚类.

下面的代码用于垂直树形图,但对于水平树形图(horiz=TRUE),不绘制矩​​形.有没有办法对水平树形图做同样的事情.

library("cluster")
dst <- daisy(iris, metric = c("gower"), stand = FALSE)
hca <- hclust(dst, method = "average")
plot(as.dendrogram(hca), horiz = FALSE)
rect.hclust(hca, k = 3, border = "red")

此外,我想绘制一条线来切割所需距离值的树.如何在R中绘制该cutree函数.函数返回聚类,但是也可以绘制它.

cutree(hca, k = 3)

我正在寻找的所需输出是这样的.

如何在R中完成这项工作？

我试图容纳多个作者和从属关系如下.

---
title: "Title"
author: | 
  | Author1^1^, Author2^2^, Author3^1^ and Author4^2^
  | 1. Affiliation1
  | 2. Affiliation2
date: "Wednesday, April 10, 2015"
output:
  pdf_document
---

以上我得到了

如何修改默认的R markdown Yaml标头以获取作者字段中的自定义输出？我想要.

1. 避免使用斜体来加入联盟.
2. 在作者和从属关系之间有一些空间(空行与|不起作用).
3. 单独减少联盟的字体大小.