有没有人知道如何从y轴提取'y',同时在下图中保留变量名称:
par(mar = c(5,7,4,2) +.01)
matrix <- matrix(rnorm(100) ,ncol = 2, nrow =6)
y <- 1:6
par(mar = c(5,7,4,2) +.01)
plot(matrix[,1], y, cex = .8, pch = 20, xlab = "Standardized Mean Differences", col = "darkblue", main = "Balance Assessment", yaxt = "n")
points(matrix[,2], y, cex = .8, pch = 20, col ="cyan")
abline(v = 0, col = "gray50", lty =2)
text(y =1:6, par("usr")[1], labels = c("Var1", "Var2", "Var3", "Var4", "Var5", "Var6"), pos = 2, xpd = TRUE, srt = …我试图将矢量中的每个元素相乘,以便产生一个关于对角线对称的矩阵.例如,给定此向量::
x <- 1:3
我想创建这个:
1 2 3
2 4 6
3 6 9
即:
x[1]*x[1] x[2]*x[1] x[3]*x[1]
x[1]*x[2] x[2]*x[2] x[3]*x[2]
x[1]*x[3] x[2]*x[3] x[3]*x[3]
任何帮助将不胜感激.谢谢.
我想从R中的数字向量中提取小数位后面的第一个数字.有没有办法在不将其转换为字符串的情况下执行此操作？例如:
x <- c(1.0,1.1,1.2)
我想函数返回一个向量:
0,1,2
谢谢.
我想用R来计算不同发言者所说话的行数(这是议会发言记录的成绩单).基本文本如下:
MR. JOHN: This activity has been going on in Tororo and I took it up with the office of the DPC. He told me that he was not aware of it.
MS. SMITH: Yes, I am aware of that.
MR. LEHMAN: Therefore, I am seeking your guidance, Madam Speaker, and requesting that you re-assign the duty.
MR. JOHN: Thank you
在文档中,每个发言者都有一个以MR/MS开头并始终大写的标识符.我想创建一个数据集,计算每个发言者在文档中说出的每个发言者所说的行数,以便上述文本将导致:
MR. JOHN: 2
MS. SMITH: 1
MR. LEHMAN: 2
MR. JOHN: 1
感谢使用R的指针!
我想使用grepl()函数来确定字符向量是否与模式匹配,并基于该模式连接向量中的字符.例如:
vec <- c("a","b","a","c","a","c","a","b")
grepl("[a]", vec)
TRUE FALSE TRUE FALSE TRUE FALSE TRUE FALSE
我希望将TRUE之后的所有值绑定到一起,直到下一个为TRUE,这样它的结果将是一个看起来像这样的向量:
"ab", "ac", "ac", "ab"
谢谢你的任何想法.
我正在用 R 生成一系列表格，一旦我在乳胶中报告它们，这些表格将包含分数。为此，我使用 paste() 函数在 r 中应用分数命令，但是当我对其进行 xtable 时，它在开头丢失了“\f”。下面是代码。您知道如何保留完整功能吗？谢谢
x <- as.vector(rbind(1, paste("\frac{",1, "}{", 2, "}", sep ="" )))
y <- as.vector(rbind(2, paste("\frac{", 2, "}{", 3, "}", sep ="" )))
table<- cbind(x,y)
xtable(table)
我是plyr的新手,想要在类中取值的加权平均值来重塑多个变量的数据帧.使用以下代码,我知道如何为一个变量执行此操作,例如x2:
set.seed(123)
frame <- data.frame(class=sample(LETTERS[1:5], replace = TRUE),
x=rnorm(20), x2 = rnorm(20), weights=rnorm(20))
ddply(frame, .(class),function(x) data.frame(weighted.mean(x$x2, x$weights)))
但是,我希望代码为x和x2(以及框架中的任何数量的变量)创建新的数据框.有人知道怎么做这个吗？谢谢
我正在使用 cut() 函数来合并向量整数。该过程运行良好并提供落入每个 bin 的整数数量，但是对于没有数字的 bin，它没有列出。我想填写这些，以便每个垃圾箱都有一个单元格，对于没有数字的垃圾箱，它用 0 填充它们。例如：
set.seed(123)
x <- sample(1:3, 100, replace = TRUE)
bins <- cut(x, breaks = 4, labels =FALSE)
bins_tab <- table(bins)
bins_tab
这给出：
bins
1 3 4
33 34 33
我想用 0 填充 2，这样输出是：
bins
1 2 3 4
33 0 34 33
任何和所有的帮助表示赞赏。
我有一个简单的问题让我很难过.我正在尝试使用循环来计算向量中有多少值落入bin(0,.01),(.01,.02)等.例如(循环不起作用):
set.seed(12345)
x<- rnorm(100, 0, .05)
vec <- rep(NA, 11)
for(i in .01:.11){
vec[i] <- sum(x> i & x < (i +.01))
}
我希望这最终产生每个中断之间的计数向量,这样上面的输出是:
5,9,10...
我认为这可能与索引/小数有关.感谢您的帮助.
我想创建一个正方形网格,并标识边界一组其他网格单元格的网格单元格,二进制变量取1.在下面的示例中,我想生成一个边框ID为g13的单元格id的向量G24:
require(sp)
grid <- GridTopology(c(0,0), c(1,1), c(5,5))
polys <- as(grid, "SpatialPolygons")
centroids <- coordinates(polys)
id <- names(polys)
tr <- ifelse(id == "g13" | id == "g24", 1, 0)
ex <- SpatialPolygonsDataFrame(polys, data = data.frame(id = id, tr = tr, row.names = row.names(polys)))
plot(ex)
text(coordinates(polys), labels = row.names(polys))
这样它输出所有匹配的g13的载体为(g7,g8,g9,g12,g14,g17,g18,g19)和一个匹配的g24为(g18,g19,g20,g23,g24,g25).任何和所有的想法都非常感激.