Play with:+ scale_size_continuous(range = c())
のように:
#set.seed(10)
#supermarket <- data.frame(sales = sample(1:50000, 12),
# outlets = sample(1:3000, 12), retailer = LETTERS[1:12])
#I use ggplot rather than qplot and understand it so that's what I used here
ggplot(data = supermarket, aes(x=outlets, y=sales, size=sales, color=retailer)) +
geom_point() + scale_size_continuous(range = c(3, 8))
または、コードを使用して、scale_size_continuous
上記のように bdemarestを追加することもできます。
qplot(data = supermarket, x = outlets, y = sales, size = sales, color = retailer) +
scale_size_continuous(range = c(3, 8))
どちらも同じ結果になります。