我有一个包含以下列名称/ Headers 的数据框:
date time id datetime site origin species genus sex PP repro
我正在尝试ggplot一个刻面的人物,y轴是我所有的“id”,按照“性别”的顺序然后按照“repro”的顺序...所以理想情况下所有的女性“ids”都会出现在顶部和按照重复状态的顺序,然后在那将是所有男性“ids”,与他们的repro状态(女性 - 怀孕,女性 - 非怀孕,男性 - 再生,男性 - 非 - 按此顺序组合在一起) . 这就是我的ggplot代码目前的样子:
Presence<-ggplot(data, aes(x=date,y=reorder(sex,repro)))+
geom_point(aes(x=date,y=Presence,colour=sex))+facet_grid(id~.)+
theme()+
ylab("\n")+
theme(legend.position="none",
axis.text.y= element_blank(),
strip.text.y=element_text(angle=0))
这里用两个变量重新排序显然不起作用......
如果这很有用......这里有来自dput的更多信息:
structure(list(date = structure(c(16439, 16439, 16443, 16444,
16444, 16445), class = "Date"), time = c("05:11:00.470", "19:41:08.120",
"20:45:38.570", "22:27:59.370", "22:53:13.370", "18:44:49.630"
), id = c("989001000312244", "989001000312244", "989001000312214",
"989001000312285", "989001000312285", "989001000312252"), datetime = structure(list(
sec = c(0.47, 8.12, 38.57, 59.37, 13.37, 49.63), min = c(11L,
41L, 45L, 27L, 53L, 44L), hour = c(5L, 19L, 20L, 22L, 22L,
18L), mday = c(4L, 4L, 8L, 9L, 9L, 10L), mon = c(0L, 0L,
0L, 0L, 0L, 0L), year = c(115L, 115L, 115L, 115L, 115L, 115L
), wday = c(0L, 0L, 4L, 5L, 5L, 6L), yday = c(3L, 3L, 7L,
8L, 8L, 9L), isdst = c(0L, 0L, 0L, 0L, 0L, 0L), zone = c("PST",
"PST", "PST", "PST", "PST", "PST"), gmtoff = c(NA_integer_,
NA_integer_, NA_integer_, NA_integer_, NA_integer_, NA_integer_
)), .Names = c("sec", "min", "hour", "mday", "mon", "year",
"wday", "yday", "isdst", "zone", "gmtoff"), class = c("POSIXlt",
"POSIXt")), site = c("chivato", "chivato", "chivato", "chivato",
"chivato", "chivato"), origin = structure(c(2L, 2L, 2L, 2L, 2L,
2L), .Label = c("carmen", "chivato", "la capilla", "las cuevas",
"lto1"), class = "factor"), species = structure(c(2L, 2L, 2L,
2L, 2L, 2L), .Label = c("californicus", "yerbabuenae"), class = "factor"),
genus = structure(c(1L, 1L, 1L, 1L, 1L, 1L), .Label = c("Leptonycteris",
"Macrotus"), class = "factor"), sex = structure(c(1L, 1L,
2L, 2L, 2L, 2L), .Label = c("female", "male", "unrecorded"
), class = "factor"), PP = c(1, 1, 1, 1, 1, 1), repro = structure(c(2L,
2L, 2L, 2L, 2L, 2L), .Label = c("lactating", "non", "postlactating",
"pregnant", "testes"), class = "factor")), .Names = c("date",
"time", "id", "datetime", "site", "origin", "species", "genus",
"sex", "PP", "repro"), row.names = c(846L, 878L, 1101L, 1152L,
1154L, 1185L), class = "data.frame")
1 回答
@aosmith留下的评论将指向正确的方向 . 以下是基于较大模拟数据集的示例 .