瑕佺粰ggplot鍥鹃殢鏈烘坊鍔犻鑹诧紝鍙互浣跨敤scale_color_manual()鍑芥暟缁撳悎sample()鍑芥暟鏉ュ疄鐜般€備互涓嬫槸涓€涓ず渚嬩唬鐮侊細

library(ggplot2)

# 鍒涘缓涓€涓暟鎹泦
data <- data.frame(
  x = 1:10,
  y = rnorm(10)
)

# 缁樺埗鏁ｇ偣鍥撅紝棰滆壊闅忔満
ggplot(data, aes(x = x, y = y, color = factor(x))) +
  geom_point() +
  scale_color_manual(values = sample(colors(), 10))

鍦ㄨ繖涓ず渚嬩腑锛屾垜浠鍏堝垱寤轰簡涓€涓寘鍚玿鍜寉鍙橀噺鐨勬暟鎹泦銆傜劧鍚庝娇鐢╣gplot鍑芥暟缁樺埗鏁ｇ偣鍥撅紝鍏朵腑棰滆壊鏍规嵁x鍙橀噺鏉ュ尯鍒嗐€傛渶鍚庝娇鐢╯cale_color_manual()鍑芥暟骞剁粨鍚坰ample(colors(), 10)鏉ラ殢鏈洪€夋嫨10绉嶉鑹层€傝繖鏍峰氨瀹炵幇浜嗙粰鍥鹃殢鏈烘坊鍔犻鑹茬殑鏁堟灉銆?/p>