小编Flo*_*lli的帖子
如何在boxplot中添加一行？
我想在我的boxplot中的"mean"之间添加一行.
我的代码:
library(ggplot2)
library(ggthemes)
Gp=factor(c(rep("G1",80),rep("G2",80)))
Fc=factor(c(rep(c(rep("FC1",40),rep("FC2",40)),2)))
Z <-factor(c(rep(c(rep("50",20),rep("100",20)),4)))
Y <- c(0.19 , 0.22 , 0.23 , 0.17 , 0.36 , 0.33 , 0.30 , 0.39 , 0.35 , 0.27 , 0.20 , 0.22 , 0.24 , 0.16 , 0.36 , 0.30 , 0.31 , 0.39 , 0.33 , 0.25 , 0.23 , 0.13 , 0.16 , 0.18 , 0.20 , 0.16 , 0.15 , 0.09 , 0.18 , 0.21 , 0.20 , 0.14 , 0.17 , 0.18 , 0.22 , …推荐指数
解决办法
查看次数
R 在矩阵上使用 sapply 时保留列名和行名
已经有人提出一个问题，关于在此处apply应用、sapply等时如何将列名保留在矩阵中。但我没有找到如何保留矩阵的列名和行名。
下面是一个例子：
mat = matrix(c(as.character(1:4)), nrow = 2)
colnames(mat) = c( 'col1', 'col2' )
rownames(mat) = c( 'row1', 'row2' )
mat = apply(mat, 2, function(x) as.numeric(paste(x)))
colnames(mat)
rownames(mat)
提前致谢 ：-）
推荐指数
解决办法
查看次数
识别向量的确切元素是什么
我有一个x形式的向量：
x=c(601, 602, 603, 604, 605, 606, 607, 608, 609, 610, 611, 612, 613, 614,
615, 616, 617, 618, 619, 620, 621, 622, 623, 624, 625, 626, 627, 628, 629, 630,
631, 632, 633, 634, 635, 636, 637, 638, 639, 640, 641, 642, 643, 644, 645, 646,
647, 648, 649, 650)
如果length (x) == 50：我想测试（TRUE或FALSE）x是否精确等于间隔1:50或51：100或101：150或151：200 ....或951：1000中的一个。
或者，如果length (x)> 50我想测试（TRUE或FALSE）x是否精确等于（（1:50 U 51：100）或（1:50 U 101：150）或（51：100）组成的区间的并集U …
推荐指数
解决办法
查看次数
有没有一种方法可以在R中为Word制作漂亮的表格？
我问关于SO的问题，这是我最后的希望：-)我必须就Word编写一份报告。我在R Markdown上工作，在那里我必须产生许多表。我希望我的桌子很漂亮！但是，一切都我试过（pander，KableExtra，flextable）没有工作。
我从coxph模型中获取结果，进行汇总，然后构建data.frame如下所示的模型：
1 Model 1 Model 2
2 n= 375 n= 374
3 e= 65 e= 64
4 PH= 0.46 PH= 0.97
5 Weight --- 1.0 [ 1.0 ; 1.1 ] p = 0.03
6 Size --- 1.0 [ 1.0 ; 1.0 ] p = < 10^-3^
7 GR I --- 1
8 GR II --- 1.2e+06 [ 0.0 ; Inf ] p = 1.00
9 GR III --- …推荐指数
解决办法
查看次数
在R（perl）上使用正则表达式的向量中找到条件词
我想在向量中找到带有“ RT”或“ R”字样的行，但如果单词“ RT”前带有“ no”则找不到。
单词RT之前可能没有任何内容，空格，点等。使用正则表达式，我尝试过：
grep("(?<=[no] )RT", aaa,ignore.case = FALSE, perl = T)
这让我所有行都带有“ no RT”。
和
grep("(?=[^no].*)RT",aaa , perl = T)
这让我所有包含“ RT”的行都以开头和不存在“ no”开头。
我怎么了 我以为，^除了跟随它的角色，它给了一切。
范例：
aaa = c("RT alone", "no RT", "CT/RT", "adj.RTx", "RT/CT", "lang, RT+","npo RT" )
推荐指数
解决办法
查看次数
Flextable ：在数据框中使用上标
这个问题被问了几次，但令人惊讶的是，没有给出答案。
我希望数据框中的一些数字出现在上标中。函数compose和display不适合这里，因为我还不知道数据框中的哪些值将出现在上标中（我的表格是自动生成的）。
我尝试使用^8^like for kable、$$10^-3$$、paste(expression(10^2))、 "H\\textsubscript{123}"等。
没有任何效果！帮助 ！我拔掉我的头发...
library(flextable)
bab = data.frame(c( "10\\textsubscript{-3}",
paste(as.expression(10^-3)), '10%-3%', '10^-2^' ))
flextable(bab)
我正在编织Rhtml 。
推荐指数
解决办法
查看次数
在 R 中为组的每个成员分配值的快速方法
我需要为组中的每个成员赋予权重。我做了以下循环来创建weights_ind向量（个体权重的向量），但我的循环太慢（2000 个人 2 秒）：
# Data example
n.group = 10
n.tot = 1000
groups = sample(1:10, n.tot, replace = TRUE)
weights_by_group = rexp(n.group, rate = 1)
weights_ind = rep(NA, n.tot)
for(i in 1:n.tot){
for(j in 1:n.group) {
if(groups[i] == j)
weights_ind[i] = weights_by_group[j]
}}
在我的情况下，我可以使用哪个更快的功能？
推荐指数
解决办法
查看次数
根据连续标准对字符向量进行排序
我有一个包含不同元素的字符串向量：
vec = c("aaa.bbb0bbb0.fff110321.csv", "aaa.bbb0bbb015.fff120321.csv",
"aaa.bbb02bbb015.fff150321.csv","aaa.bbb02bbb015.fff130321.csv")
我想根据第一个递增之后的数字，然后第二个递增bbb之后的数字，最后根据字符串末尾的日期之后的数字对这些元素进行排序。bbb
有解决方案吗？
推荐指数
解决办法
查看次数
HTML 中 rmarkdown 文件中的 Kable 标题以粗体显示
我想以粗体显示我的表格标题，但似乎找不到它的选项。
我的代码是（在 rmarkdown 文档中）：
kable(head(iris), caption = 'I want this in Bold') %>%
kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive"))
输出是：
推荐指数
解决办法
查看次数