我很难为我的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中是否有办法进行方差不等的方差分析?
想象一下以下示例:
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值相同.同样,有没有办法进行方差不等的方差分析?
我是新手,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) 我发现可以使用以下命令通过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程序时,将在指定的路径中打开资源管理器.
有没有人知道为什么会失败?
假设我有以下数据框
> 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)