在geom_tile内订购数据
|
我有一个数据框，我想从中生成一个
geom_tile()
structure(list(V1 = c(\"a\", \"y\", \"w\", \"p\", \"v\", \"h\", \"i\"),
V2 = c(\"r\", \"w\", \"q\", \"m\", \"l\", \"q\", \"g\"), V3 = c(
\"5\", \"2\", \"9\", \"2\", \"1\", \"3\", \"0\")), .Names = c(\"V1\", \"V2\",
\"V3\"), class = \"data.frame\", row.names = c(NA, -8L))
V3
V1
V2
没有找到相关结果
已邀请:
2 个回复
抽法
x <- structure(list(V1 = c(\"a\", \"y\", \"w\", \"p\", \"v\", \"h\", \"i\"), V2 = c(\"r\", \"w\", \"q\", \"m\", \"l\", \"q\", \"g\"), V3 = c( \"5\", \"2\", \"9\", \"2\", \"1\", \"3\", \"0\")), .Names = c(\"V1\", \"V2\", \"V3\"), class = \"data.frame\", row.names = c(NA, -8L)) x <- x[1:7,] x$V1 <- factor(x$V1, levels=(x$V1)[order(x$V3)]) # Note it\'s not an ordered factor, it\'s a factor in the right order ggplot(x, aes(V1, V3)) + geom_tile()了驳
并且不需要更改数据的解决方案。x <- structure(list(V1 = c(\"a\", \"y\", \"w\", \"p\", \"v\", \"h\", \"i\"), V2 = c(\"r\", \"w\", \"q\", \"m\", \"l\", \"q\", \"g\"), V3 = c( \"5\", \"2\", \"9\", \"2\", \"1\", \"3\", \"0\")), .Names = c(\"V1\", \"V2\", \"V3\"), class = \"data.frame\", row.names = c(NA, -8L)) x <- x[1:7,] ggplot(x, aes(V1, V2, fill=V3)) + geom_tile() + scale_x_discrete(limits=(x$V1)[order(x$V3)]) + scale_y_discrete(limits=(x$V2)[order(x$V3)])