Question
R-wakalangにこんな質問をした。
ggplotを用いて、次のような図を描きました。
penguinsの種族と性別ごとの違いに注目するために、
species列とsex列を合わせたspecies_sex列を作り、
bill_length_mmとbody_mass_gで散布図を作っています。
区別のため、species_sex列で色分けし、sex列ごとに点のshapeを変えています。
ここで、凡例のspecies_sexの説明で、sexごとにshapeを変える（Maleを▲、Femaleを●に合わせる）にす>るようなことはできるでしょうか。
Question.R
library(palmerpenguins)
library(tidyverse)
short_penguins <- penguins %>%
filter(!is.na(sex)) %>%
sample_n(30,replace=FALSE) %>%
transform(species_sex = paste(species,sex,sep="-"))
ggplot(short_penguins, aes(x=bill_length_mm,
y=body_mass_g,
color=species_sex,
shape=sex)) +
geom_point()
要するに、ここの形を変えたい。
Answer
（ Thanks to tasasaki様）
このあたりが参考になりそうです
https://stackoverflow.com/questions/12410908/combine-legends-for-color-and-shape-into-a-single-legend
scale_color_manual、scale_shape_manualを使うといいようです。
Answer1.R
short_penguins <- penguins %>%
filter(!is.na(sex)) %>%
sample_n(30,replace=FALSE) %>%
transform(species_sex = paste(species,sex,sep="-"))
ggplot(short_penguins, aes(x=bill_length_mm,
y=body_mass_g,
color=species_sex,
shape=species_sex)) + #colorとsphapeでおなじものを指定
geom_point() +
scale_color_manual(values=c("red","red","blue","blue","green","green")) +
scale_shape_manual(values=c("circle","triangle","circle","triangle","circle","triangle"))
色を変える必要がない場合には、scale_shape_manualだけでも大丈夫
Anser2.R
short_penguins <- penguins %>%
filter(!is.na(sex)) %>%
sample_n(30,replace=FALSE) %>%
transform(species_sex = paste(species,sex,sep="-"))
ggplot(short_penguins, aes(x=bill_length_mm,
y=body_mass_g,
color=species_sex,
shape=species_sex)) + #colorとsphapeでおなじものを指定
geom_point() +
scale_shape_manual(values=c("circle","triangle","circle","triangle","circle","triangle")) +
labs(color = "Species and sex", shape = "Species and sex") #ラベルを変えるときは、ShapeとColorを同じ名前にする
さいごに
ｒ−wakalangのr-beginnersチャンネルでは、R初心者のちょっとした疑問を、Rつよつよなお兄さん、お姉さんたちが爆速で解説してくれます。（いつも大変お世話になっております）
みなさんとってもフレンドリーなので、みんなで楽しくRを勉強しましょう！
（腕に覚えのある皆様はご回答のほうも何卒）