小编use*_*113的帖子

不同的facet_grids的不同颜色

我很难为我的2个不同的facet_grids获得不同的颜色.

这是我的简单示例:

df <- data.frame(x = rep(1:20, each=20), y= rep(1:20, 20),
             val = sample(0:1,400, replace=TRUE),
             facet_grid = c(rep("A", 200), rep("B", 200)))
colors <- c(1,2)
ggplot(df, aes(x = x, y = y)) +
    geom_tile(aes(fill = val)) +
    facet_grid(. ~ facet_grid, scales = "free") +
    scale_fill_gradient(limits=c(0,1), low=brewer.pal(11, "RdYlGn")[colors][1],  
                        high="grey30")
Run Code Online (Sandbox Code Playgroud)

我正在使用scale_fill_gradient函数brewer.pal功能来覆盖使用的标准颜色.但是,我想要实现的是在两个不同的facet_grids中设置1应该使用相同颜色(grey30)的值.例如,对于第一个facet_grig中的值为0,应使用红色,而应使用第二个facet_grid绿色.

任何人都可以给我一个如何实现这一目标的提示吗?

我创建了另一个示例,现在更接近我想要但我不明白为什么scale_fill_identity不起作用.为此,我略微更改了数据框,以便该值现在有4个不同的值:

df <- data.frame(x = rep(1:20, each=20), y= rep(1:20, 20),
             val = c(sample(0:1,200, replace=TRUE), sample(2:3,200, replace=TRUE)),
         facet_grid = c(rep("A", 200), rep("B", 200)))

ggplot(df, aes(x = …
Run Code Online (Sandbox Code Playgroud)

r colors ggplot2

4
推荐指数
1
解决办法
8631
查看次数

具有不等方差的参数方差分析

我想知道在R中是否有办法进行方差不等的方差分析?

想象一下以下示例:

x <- c(10,11,15,8,16,12,20)
y <- c(10,14,18,25,28,30,35)

d <- c(x,y)
f <- as.factor(c(rep("a",7), rep("b",7)))

# Unequal variance:

t.test(x,y)$p.value
t.test(d~f)$p.value

# Equal variance:

t.test(x,y, var.equal=TRUE)$p.value
t.test(d~f, var.equal=TRUE)$p.value

anova(lm(d~f))[[5]]
summary(aov(lm(d~f)))[[1]][5]
summary(lm(d~f))[[4]][8]
Run Code Online (Sandbox Code Playgroud)

从这个例子中可以看出,在R中执行ANOVA的不同方式,仅在两个组的情况下,总是导致p值与由t.test获得的具有相等方差的p值相同.同样,有没有办法进行方差不等的方差分析?

r anova

3
推荐指数
1
解决办法
3703
查看次数

ggplot2点之间的垂直线

我是新手,ggplot2无法弄清楚如何绘制之间的垂直虚线灰线

沿x轴的点/点.这是我的示例代码:

d1 <- runif(10,10,15)

d2 <- runif(10,25,30)

d3 <- rep(1:10,2)

df <- data.frame(x = d3, y = c(d1,d2))

ggplot(df, aes(x=x, y=y)) +

geom_point()
Run Code Online (Sandbox Code Playgroud)

r ggplot2

3
推荐指数
1
解决办法
5540
查看次数

使用系统命令打开具有特定路径的Windows资源管理器

我发现可以使用以下命令通过cmd.exe程序使用预定义路径打开Windows资源管理器:

explorer PATH 
Run Code Online (Sandbox Code Playgroud)

使用以下命令返回R打开Windows资源管理器:

system("explorer", intern=TRUE) 
Run Code Online (Sandbox Code Playgroud)

但是,当我指定路径时,R将返回以下警告消息,并且不会在指定路径处打开资源管理器:

> system("explorer C:\\Users\\xxx", intern=TRUE) 
character(0) 
attr(,"status") 
[1] 1 
Warning message: 
running command 'explorer C:\Users\xxx' had status 1 
Run Code Online (Sandbox Code Playgroud)

我引用了\其他R抱怨没有从\ Users识别\ U.

但是,当执行命令时,我们希望double \只替换为一个.

当我将R警告消息中的资源管理器C:\ Users\xxx位复制粘贴到cmd.exe程序时,将在指定的路径中打开资源管理器.

有没有人知道为什么会失败?

r system

2
推荐指数
1
解决办法
3252
查看次数

按特定标记拆分数据框中列的值,并将其添加为额外行

假设我有以下数据框

> df <- data.frame(var1 = c("A", "B", "C", "D"),            
                 var2 = c("test", "5 | 6", "X & Y", "M | N | O"))
> df
  var1          var2
1    A          test
2    B         5 | 6
3    C         X & Y
4    D     M | N | O
Run Code Online (Sandbox Code Playgroud)

我怎样才能在分裂值var2|&运营商,并把它们作为单独的行插入same data.frame.输出应如下所示:

> df
  var1          var2
1    A          test
2    B             5
3    B             6
4    C             X
5    C             Y
6    D             M …
Run Code Online (Sandbox Code Playgroud)

string split r dataframe

1
推荐指数
1
解决办法
381
查看次数

创建Web应用程序以运行R脚本

是否有类似于Rwui包来创建运行R脚本的Web应用程序?

web-applications r

-2
推荐指数
1
解决办法
441
查看次数

R插值

我必须成对值:

A    B
211  2
19   1
Run Code Online (Sandbox Code Playgroud)

如何为值A = 132插值B?

interpolation r

-2
推荐指数
1
解决办法
2810
查看次数