scale_shape_manualに40シェイプ以上を割り当てる

Question

私は40以上の因子レベルのデータフレームを持っています。レベルごとに異なるシェイプを割り当てたいと思います。しかしながら、scale_shapes_tableのggplot2に示されるように、私はそれらのうちのわずか26個を割り当てることができ、いくつかは!,",#などと割り当てることができる。

は、しかし、私はpythonでまたはJMPあなたは多くの形状を割り当てることができることを知っている（asteriks、左三角形、直角三角形、四角形などのように）。 ggplot2でも可能ですか？

data=data.frame(gr=seq(1,40), x1=runif(40), y1=runif(40)) 
library(ggplot2) 
ggplot(data=data,aes(x=x1,y=y1,shape=factor(gr),col=factor(gr)))+ 
    geom_point(alpha = 0.3,size=4,stroke=1.4) + 
    scale_shape_manual(values=c(0:40)) 

Answer 1

の大規模なセットシンボルはemojifontパッケージを使用して入手できますeをFont Awasomeで使用してください（hereの完全なリストを参照）。詳細はhereです。

library(ggplot2) 
library(emojifont) 
set.seed(1234) 
symbls <- c('fa-github', 'fa-binoculars', 'fa-twitter', 'fa-android', 'fa-coffee', 
'fa-cube', 'fa-ambulance','fa-check','fa-cutlery','fa-cogs','fa-dot-circle-o','fa-car', 
'fa-building','fa-fire', 'fa-flag','fa-female','fa-gratipay','fa-heart','fa-magnet', 
'fa-lock','fa-map','fa-puzzle-piece','fa-shopping-cart','fa-star','fa-sticky-note', 
'fa-stop-circle-o','fa-volume-down','fa-anchor', 'fa-beer','fa-book','fa-cloud', 
'fa-comment','fa-eject','fa-chrome','fa-child','fa-bomb', 'fa-certificate', 
'fa-desktop','fa-fire-extinguisher','fa-diamond') 
idx <- order(symbls) 
fa <- fontawesome(symbls) 
k <- length(fa) 
data=data.frame(gr=factor(fa, levels=fa[idx]), x1=runif(k), y1=runif(k)) 
data$gr <- factor(data$gr, levels=fa[idx]) 

ggplot(data, aes(x1, y1, colour=gr, label=gr)) + 
    xlab(NULL) + ylab(NULL) + geom_point(size=-1) + 
    geom_text(family='fontawesome-webfont', size=6, show.legend=FALSE) + 
    theme(legend.text=element_text(family='fontawesome-webfont')) + 
    scale_colour_discrete("Points",guide=guide_legend(override.aes=list(size=4))) 

警告：あなたはRstudio内のコードを使用したい場合は、次のように最初のグラフデバイスを再割り当てする（詳細はhereを与えられている）：

devtools::install_github("coatless/balamuta") 
library("balamuta") 
external_graphs() 

Answer 2

40点がより良い仕事を区別するのに十分な別個の色で5つのまたは10の異なる形状の組み合わせを使用してか？私は、これらを40個の要素を視覚的に区別しやすくすることが、珍しいシンボルを使用/使用するよりも容易であると考えています。

ggplot(data=data,aes(x=x1,y=y1, shape=factor(gr), col=factor(gr)))+ 
geom_point(alpha = 0.5, size=4, stroke=1.4) + 
scale_shape_manual(values=rep(c(0:2,5:6,9:10,11:12,14), times=4)) 

や色を埋める取る5つのユニークな形状を活用します。

ggplot(data=data,aes(x=x1,y=y1, shape=factor(gr), fill=factor(gr), col=factor(gr)))+ 
geom_point(alpha = 0.5, size=4, stroke=1.4) + 
scale_shape_manual(values=rep(c(21:25), times=8)) 

Answer 3

たぶん形状を比較するよりも数を見つけることが容易にggrepelを、使用してラベルとしてGRを使用します。

library(ggrepel) 

ggplot(data = data, aes(x = x1, y = y1, label = gr))+ 
    geom_point() + 
    geom_label_repel()