小编ECI*_*CII的帖子

我想计算蓝线和灰色对角线之间的区域.

我可以将蓝线下的面积计算为:

library(zoo)    
id <- order(x)
AUC <- sum(diff(x[id])*rollmean(y[id],2))

(感谢计算R中曲线下的面积)

任何想法如何找到蓝线和灰线之间的区域？

在此先感谢EC

我有3个分类变量

agegroup{<20,20-30,>03}    
disease.level{0,1,2},  
performance{<60, >=60}

我希望将它们组合成一个具有3x3x2级别的虚拟变量.有没有快速的方法来做到这一点？我的原始数据集有大约10个变量,每个变量都有多个级别.

基本上我要求与此问题完全相反的是 从分类变量创建新的虚拟变量列

非常感谢EC

可能重复:
R:在R命令行中显示时钟

有没有办法配置R,以便它在提示">"之前显示时间戳？

非常感谢EC

我有排序的矢量

m<-c(1.1, 3.2, 3.6, 4, 4.6, 4.6, 5.6, 5.7, 6.2, 8.9)

我想基于近似匹配找到值的位置.如果向量中不存在该值,则我想要前一个值的位置

我将使用完全匹配

> match(4,m)
[1] 4

但如果我这样做

> match(6,m)
[1] NA

我想在这个例子中得到的是8(不变的前一个值6的位置,即5.7的位置,即8)

先感谢您

我有一个简单的散点图

x<-rnorm(100)
y<-rnorm(100)
z<-rnorm(100)

我想绘制plot(x,y)但是点的颜色应该基于颜色编码z.

此外,我希望能够定义应该有多少组(以及颜色)z.并且这种分组应该抵抗异常值(可能将z密度分成n相等的密度组).

直到现在我手动执行此操作,有没有办法自动执行此操作？

注意:我想用base R而不是ggplot.

我有一个fill.contour情节,我想保存为SVG(或EPS)以供发布.但是我发现SVG的质量明显差于TIFF.SVG文件中的绘图似乎有一些白盒子/行/矩形,当我以TIFF格式保存文件时,它们不会出现.在TIFF格式中,颜色过渡更平滑,并且不会出现白色矩形

反正有没有避免这个？我尝试过Linux和Mac,得到了类似的结果

下面是TIFF文件和显示问题的SVG文件的屏幕截图.

生成图的代码如下:

x <- 1:5
y <- 1:5
z <- matrix(outer(x,y,"+"),nrow=5)
filled.contour(x,y,z)
filled.contour(x,y,z,color.palette=rainbow)
z2 <- z
z2[5,5] <- Inf
filled.contour(x,y,z2,col=rainbow(100),nlevels=100)

var、sd、cor函数用作分母（其中观测值{stats}的数量）。出于好奇，是否有等效函数用作分母？n-1nn

是否可以重新排列下图的图例

plot(1,1, type="n")
legend("topleft", c("1", "2"), col=c("darkblue", "darkred"), pch = 1, bty = "n", horiz = T, lwd=1.25, cex=1.8)

看起来像这样("点线点"模式)？

我有

x<-"1, A | 2, B | 10, C "

x始终采用这种方式格式化，|表示新行，第一个值是variable1，第二个值是variable2。

我想将其转换为 data.frame

  variable1 variable2
1         1         A
2         2         B
3        10         C

我还没有找到任何可以理解转义字符的包|

我怎样才能将它转换为data.frame？

我有

  df <- data.frame(
  var1 = c(0, 1, 0, 1, 1, 0, 1),
  var2 = c("1", "1", "0", "0", "1", "1", "0"),
  var3 = c("1", "1", "0", "0", "1", "3", "1"),
  var4 = c(0, 0, 1, 1, 1, 0, 3),
  var5 = c("Yes", "No", "Yes", "No", "Yes", "No", "Yes"),
  var6 = c("Yes", "No", "Yes", "No", "Yes", "No", "Maybe")
)

我想搜索严格且仅 0/1值的所有变量，并将它们转换为带有"No"/"Yes"标签的因子。

我的尝试是

df %>%
  mutate(across(where(unique(.) == c("0", "1")), 
                .fns = …