Rのggplot2でデータフレーム内の変数を用いてバブルの色を指定したい

Question

以下のような構造のCSVファイルを

X,Y,freq,h,s,v
A,A,5,60,255,125
B,A,0,60,255,0
C,A,1,60,255,25
D,A,0,60,255,0
A,B,0,120,255,0
     .
     .
     .

R Studio で読み込み、ggplotでグラフの作成を試みましたがエラーが出ました。

>data <- read.csv("C:\Users\Name\CSV\data.csv", header=T)
>ggplot(data, aes(x=X.axis, y=Y.axis))+
+     geom_point(aes(size=freq), shape=21, colour=hsv(h,s,v,0.5),fill=hsv(h,s,v,0.5)) +
+     scale_size_area(max_size=20, guide=FALSE)+ theme(axis.text.x = element_text(angle = 90, hjust = 1))
 hsv(h, s, v, 0.5) でエラー:  オブジェクト 'h' がありません 

そこで、色指定の部分をaes()で括りましたが、なにやらaes()が気に食わないようです。

> ggplot(data, aes(x=X.axis, y=Y.axis))+
+     geom_point(aes(size=freq), shape=21, aes(colour=hsv(h,s,v,0.5)),aes(fill=hsv(h,s,v,0.5))) +
+     scale_size_area(max_size=20, guide=FALSE)+ theme(axis.text.x = element_text(angle = 90, hjust = 1))
 エラー: `data` must be a data frame, or other object coercible by `fortify()`, not an S3 object with class uneval
Did you accidentally pass `aes()` to the `data` argument?
Run `rlang::last_error()` to see where the error occurred.
> rlang::last_error()
<error/rlang_error>
`data` must be a data frame, or other object coercible by `fortify()`, not an S3 object with class uneval
Did you accidentally pass `aes()` to the `data` argument?
Backtrace:
 1. ggplot2::geom_point(...)
 2. ggplot2::layer(...)
 4. ggplot2:::fortify.default(data)
Run `rlang::last_trace()` to see the full context.

ちなみに以下のようにすると、バブルの色は全てグレーですが、グラフの描画は成功します。

> ggplot(child.cmp.bub, aes(x=X.axis, y=Y.axis))+
+     geom_point(aes(size=freq), shape=21, colour="darkgrey",fill="grey") +
+     scale_size_area(max_size=20, guide=FALSE)+ theme(axis.text.x = element_text(angle = 90, hjust = 1))

よろしくお願いいたします。

Answer 1

ggplot(data, aes(x=X, y=Y))+
       geom_point(aes(size=freq), shape=21, colour=hsv(data$h/255,data$s/255,data$v/255,0.5),fill=hsv(data$h/255,data$s/255,data$v/255,0.5)) +
       scale_size_area(max_size=20, guide=FALSE)+ theme(axis.text.x = element_text(angle = 90, hjust = 1))

Comments

[i113]

どうもありがとうございます。
おかげさまで、解決しました。