作者热门文章
- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我的数据以 csv 格式存储。我想根据事件绘制此数据颜色意味着 4 种不同的事件应该有 4 种不同的颜色。
ACTIVITY LAT LONG
Resting 21.14169444 70.79052778
Feeding 21.14158333 70.79313889
Resting 21.14158333 70.79313889
Walking 21.14163889 70.79266667
Walking 21.14180556 70.79222222
Sleeping 21.14180556 70.79222222
我试过以下代码,但没有用:
ACTIVITY.cols <- cut(ACTIVITY, 5, labels = c("pink", "green", "yellow","red","blue"))
plot(Data$Latitude,Data$Longitude, col = as.character(ACTIVITY.cols)
和
plot(Data$Latitude,Data$Longitude, col=c("red","blue","green","yellow")[Data$ACTIVITY]
最佳答案
使用
txt <- "ACTIVITY LAT LONG
Resting 21.14169444 70.79052778
Feeding 21.14158333 70.79313889
Resting 21.14158333 70.79313889
Walking 21.14163889 70.79266667
Walking 21.14180556 70.79222222
Sleeping 21.14180556 70.79222222"
dat <- read.table(text = txt, header = TRUE)
一个选项是使用 ACTIVITY
变量作为索引来索引长度为 nlevels(ACTIVITY)
的颜色向量。
cols <- c("red","green","blue","orange")
plot(LAT ~ LONG, data = dat, col = cols[dat$ACTIVITY], pch = 19)
legend("topleft", legend = levels(dat$ACTIVITY), col = cols, pch = 19, bty = "n")
这产生
要了解其工作原理,cols
被扩展为
> cols[dat$ACTIVITY]
[2] "green" "red" "green" "orange" "orange" "blue"
因为 ACTIVITY
是一个因子,但以数字形式存储为 1,2,...,n。
还有其他更高级别的解决方案,因此请考虑使用 ggplot2 包来简单地创建相同的绘图。
library("ggplot2")
plt <- ggplot(dat, aes(x = LONG, y = LAT, colour = ACTIVITY)) +
geom_point()
plt
产生
关于r - 如何为 R 中散点图中的类赋予颜色?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/30894789/
我是一名优秀的程序员,十分优秀!