R - 着色散點圖

Question

您好，我想知道為什么我下面的代碼使圖例着色，但點本身不是：

# dataset <- data.frame(IDName, Value, Setpoints)
# dataset <- unique(dataset)

# Paste or type your script code here:
dat <- aggregate(Value ~ Setpoints + IDName, dataset, mean)

x <- dat$Value
y <- dat$Setpoints
z <- dataset$IDName

plot(x,y, main ="Turbidity Frequency Distribution",xlab="% Time < Turbidity level", ylab="Turbidity (NTU)")

lines(spline(x,y))

palette()
legend('topleft', legend = unique(z), col = 1:3, cex = 0.8, pch = 1)

#constant lines
abline(h=c(0.1,0.15,0.3), col=c("red","pink","purple"), lty=2, lwd=3)

Answer 1

確保z是一個factor 。 然后，在創建 plot 時使用col = z 。 你會得到彩色點。

在你的legend （出現在圖例中的字符值）到你的factor z的levels 。 此外，根據unique(z)設置 colors - 它們應該與您的點相匹配。

這是完整的示例。 將來，請不要將數據放在評論中，而是使用數據編輯您的問題。 此外，您可能需要考慮ggplot2以供將來繪圖。

dat <- aggregate(Value ~ Setpoints + IDName, dataset, mean)

x <- dat$Value
y <- dat$Setpoints
z <- dataset$IDName

z <- factor(z)

plot(x, y, 
     main ="Turbidity Frequency Distribution",
     xlab="% Time < Turbidity level", 
     ylab="Turbidity (NTU)",
     col = z)

lines(spline(x,y))

palette()

legend('topleft', 
       legend = levels(z), 
       col = unique(z), 
       cex = 0.8, 
       pch = 1)

#constant lines
abline(h=c(0.1,0.15,0.3), col=c("red","pink","purple"), lty=2, lwd=3)

Plot

數據

dataset <- structure(list(IDName = c("Filter01", "Filter01", "Filter01", 
"Filter01", "Filter01", "Filter02", "Filter02", "Filter02", "Filter02", 
"Filter02"), Setpoints = c(0.16, 0.2, 0.3, 2, 2.2, 0.16, 0.2, 
0.3, 2, 2.2), Value = c(96.1, 96.2, 96.428, 99.603, 99.6, 98.8, 
98.9, 99.049, 99.194, 99.2)), class = "data.frame", row.names = c(NA, 
-10L))