R 是什么使一个点图在另一个点上的几何点上?如何改变它?
是什么使一个值点图重叠并在ggtern图上的另一个值点图之上?我怎样才能改变它? 我想把我选择的彩色观察结果绘制在黑色的上面。(根据我的数据,我有1400次观察,即使是较小的点大小,这种情况仍然会发生)R 是什么使一个点图在另一个点上的几何点上?如何改变它?,r,ternary,ggtern,geom-point,R,Ternary,Ggtern,Geom Point,是什么使一个值点图重叠并在ggtern图上的另一个值点图之上?我怎样才能改变它? 我想把我选择的彩色观察结果绘制在黑色的上面。(根据我的数据,我有1400次观察,即使是较小的点大小,这种情况仍然会发生) obs也许使“B”和“C”透明可以解决您的问题,例如 library(tidyverse) obs <- c("Gene1", "Gene2", "Gene3", "Gene4","Gene5&qu
obs也许使“B”和“C”透明可以解决您的问题,例如
library(tidyverse)
obs <- c("Gene1", "Gene2", "Gene3", "Gene4","Gene5", "Gene6")
func1 <- c("A", "B", "C", "D", "C", "A")
func2 <- c("A1", "B1", "C1", "D1", "C2", "A2")
Cond1 <- c(0.007623561, 0.004639893, 0.000994121, 0.017494429, 0.000366445, 0.006663334)
Cond2 <- c(0.011299941, 0.009994388, 0.001012428, 0.013695669, 0.000299771, 0.010287904)
Cond3 <- c(0.005055458, 0.016826251, 0.001311254, 0.016115009, 0.000242897, 0.004583889)
df <- data.frame(obs, func1, func2, Cond1, Cond2, Cond3)
col<-rep("black", length(unique(df$func1)))
names(col) <- unique(df$func1)
col[which(names(col)=="A")] <- 'red'
col[which(names(col)=="D")] <- 'blue'
col[which(names(col)=="B" | names(col)=="C")] <- 'transparent'
#install.packages("ggtern")
library(ggtern)
g <- ggtern(data=df, aes(x=Cond1,y=Cond2,z=Cond3)) +
theme_bw() +
geom_point(aes(fill=func1), shape=21, size = 20, colour="black") +
scale_fill_manual(values=col) +
labs(x="Cond1",y="Cond2",z="Cond3") +
scale_T_continuous(breaks=unique(df$x))+
scale_L_continuous(breaks=unique(df$y))+
scale_R_continuous(breaks=unique(df$z))
print(g)
库(tidyverse)
obs Hey@jared_mamrot我会发现我的数据的问题是,“B”和“C”实际上不是2个而是400个观测值,那么这是不是一种建议:除了a,B之外的任何东西都是透明的?对,所以使它们透明可能不是理想的-我已经更新了我的答案-你的意思是,如果没有a,D?是的,我现在看到编辑过的帖子,有道理,让我试试看;)
library(tidyverse)
obs <- c("Gene1", "Gene2", "Gene3", "Gene4","Gene5", "Gene6")
func1 <- c("A", "B", "C", "D", "C", "A")
func2 <- c("A1", "B1", "C1", "D1", "C2", "A2")
Cond1 <- c(0.007623561, 0.004639893, 0.000994121, 0.017494429, 0.000366445, 0.006663334)
Cond2 <- c(0.011299941, 0.009994388, 0.001012428, 0.013695669, 0.000299771, 0.010287904)
Cond3 <- c(0.005055458, 0.016826251, 0.001311254, 0.016115009, 0.000242897, 0.004583889)
df <- data.frame(obs, func1, func2, Cond1, Cond2, Cond3)
col<-rep("black", length(unique(df$func1)))
names(col) <- unique(df$func1)
col[which(names(col)=="A")] <- 'red'
col[which(names(col)=="D")] <- 'blue'
col[which(names(col)=="B" | names(col)=="C")] <- 'transparent'
#install.packages("ggtern")
library(ggtern)
g <- ggtern(data=df, aes(x=Cond1,y=Cond2,z=Cond3)) +
theme_bw() +
geom_point(aes(fill=func1), shape=21, size = 20, colour="black") +
scale_fill_manual(values=col) +
labs(x="Cond1",y="Cond2",z="Cond3") +
scale_T_continuous(breaks=unique(df$x))+
scale_L_continuous(breaks=unique(df$y))+
scale_R_continuous(breaks=unique(df$z))
print(g)
library(tidyverse)
obs <- c("Gene1", "Gene2", "Gene3", "Gene4","Gene5", "Gene6")
func1 <- c("A", "B", "C", "D", "C", "A")
func2 <- c("A1", "B1", "C1", "D1", "C2", "A2")
Cond1 <- c(0.007623561, 0.004639893, 0.000994121, 0.017494429, 0.000366445, 0.006663334)
Cond2 <- c(0.011299941, 0.009994388, 0.001012428, 0.013695669, 0.000299771, 0.010287904)
Cond3 <- c(0.005055458, 0.016826251, 0.001311254, 0.016115009, 0.000242897, 0.004583889)
df <- data.frame(obs, func1, func2, Cond1, Cond2, Cond3)
col<-rep("black", length(unique(df$func1)))
names(col) <- unique(df$func1)
col[which(names(col)=="A")] <- 'red'
col[which(names(col)=="D")] <- 'blue'
#install.packages("ggtern")
library(ggtern)
library(tidyverse)
g <- ggtern(data=df, aes(x=Cond1,y=Cond2,z=Cond3)) +
theme_bw() +
geom_point(data = subset(df, !(func1 %in% c("A", "D"))),
aes(fill=func1), shape=21, size = 20, colour="black") +
geom_point(data = subset(df, func1 %in% c("A", "D")),
aes(fill=func1), shape=21, size = 20, colour="black") +
scale_fill_manual(values=col) +
labs(x="Cond1",y="Cond2",z="Cond3") +
scale_T_continuous(breaks=unique(df$x))+
scale_L_continuous(breaks=unique(df$y))+
scale_R_continuous(breaks=unique(df$z))
print(g)