问R按系数手动设置形状
EN

Stack Overflow用户

提问于 2014-10-06 14:03:50

回答 2查看 15K关注 0票数 11

前几天我问了这个问题，但是没有人能想象我的问题，所以我举了个例子。

A <- c('a','b', 'c','d','e')
types <- factor(A)
B <- c(1,2,3,4,5)
C <- c(6,7,8,9,10)
D <- c(1,2,1,2,3)
ABC <- data.frame(B,C,D,types)

library(ggplot2)

ggplot(ABC, aes(x=B ,y=C ,size=D, colour=as.factor(types),label=types, shape=as.factor(types))) +
geom_point()+geom_text(size=2, hjust=0,colour="black", vjust=0) +
scale_size_area(max_size=20, "D", breaks=c(100,500,1000,3000,5000))  +
scale_x_log10(lim=c(0.05,10),breaks=c(0.1,1,10))+ scale_y_continuous(lim=c(0,30000000)) +
scale_shape_manual(values=c(15,18,16,17,19))`

绘制这个图，你会发现有a-e因子，它们有颜色和形状。

在我的代码中，我使用scale_shape_manual来设置形状，它们是按顺序定义的，即因子的顺序是a，b，c，d，e，我的值是15,18,16,17,19，所以a=15 (正方形)，b=18等

我想按因子设置这些形状。我的数据每天都在变化，因素的顺序也不同，但我总是希望相同的因素具有相同的形状。

所以很明显，这段代码不能工作，但类似于：

scale_shape_manual(values=('a'=15, 'b'=18, 'c'=16, 'd'=17, 'e'=19))

如果我也能对颜色做同样的事情，那将会很有帮助。

谢谢

ggplot2

shape

bubble-chart

大数据产品特惠专场

BI、WeData新客仅9.9元！新客首单1折起！

回答 2

Stack Overflow用户

回答已采纳

发布于 2014-10-06 15:20:15

如果我没有理解错的话，总会有(最多)五个类别"a“- "e"，并且您希望这些类别的形状和颜色在数据集中保持一致。这里有一种方法(注意：gg_color_hue(...)来自here)：

# set up shapes
shapes <- c(15,18,16,17,19)
names(shapes) <- letters[1:5]

# set up colors
gg_color_hue <- function(n) { # ggplot default colors
  hues = seq(15, 375, length=n+1)
  hcl(h=hues, l=65, c=100)[1:n]
}
colors <- gg_color_hue(5)
names(colors) <- names(shapes)

# original data
ggplot(ABC, aes(x=B ,y=C ,size=D, colour=types,label=types, shape=types)) +
  geom_point()+geom_text(size=2, hjust=0,colour="black", vjust=0) +
  scale_size_area(max_size=20, "D", breaks=c(100,500,1000,3000,5000))  +
  scale_x_log10(lim=c(0.05,10),breaks=c(0.1,1,10))+ 
  scale_y_continuous(lim=c(0,30000000)) +
  scale_shape_manual(values=shapes) + scale_color_manual(values=colors)

#new data
DEF <- data.frame(B,C,D,types=factor(c("a","a","a","d","e")))
ggplot(DEF, aes(x=B ,y=C ,size=D, colour=types,label=types, shape=types)) +
  geom_point()+geom_text(size=2, hjust=0,colour="black", vjust=0) +
  scale_size_area(max_size=20, "D", breaks=c(100,500,1000,3000,5000))  +
  scale_x_log10(lim=c(0.05,10),breaks=c(0.1,1,10))+ 
  scale_y_continuous(lim=c(0,30000000)) +
  scale_shape_manual(values=shapes) + scale_color_manual(values=colors)

票数 7

Stack Overflow用户

发布于 2020-09-15 18:48:58

我确信这不再与OP相关，但我找到的这个问题的最佳解决方案比目前发布的更简单，而且几乎写入了问题本身。

操作员希望使用以下内容指定手动定义的形状或颜色

"scale_shape_manual(values=('a'=15, 'b'=18, 'c'=16, 'd'=17, 'e'=19))“

只需要将赋值作为向量传递，

scale_shape_manual(values = c('a'=15, 'b'=18, 'c'=16, 'd'=17, 'e'=19))

如果你想要自动生成的颜色，jlhoward的答案会更好。而我在下面提供的脚本只需要更少的代码行。用户选择。

A <- c('a','b', 'c','d','e')
types <- factor(A)
B <- c(1,2,3,4,5)
C <- c(6,7,8,9,10)
D <- c(1,2,1,2,3)
ABC <- data.frame(B,C,D,types)

library(ggplot2)

ggplot(ABC, aes(x=B ,y=C ,size=D, colour=as.factor(types),label=types, shape=as.factor(types))) +
geom_point()+geom_text(size=2, hjust=0,colour="black", vjust=0) +
scale_size_area(max_size=20, "D", breaks=c(100,500,1000,3000,5000))  +
scale_x_log10(lim=c(0.05,10),breaks=c(0.1,1,10))+
scale_y_continuous(lim=c(0,30000000)) +
scale_shape_manual(values = c('a'=15, 'b'=18, 'c'=16, 'd'=17, 'e'=19)) +
scale_colour_manual(values = c('a'="tomato", 'b'="yellow4", 'c'="palegreen2", 'd'="deepskyblue1", 'e'="orchid3"))`