0

我有以下数据：

points <- structure(list(A = structure(c(1L, 1L, 2L, 2L, 3L, 4L, 
4L, 5L, 5L, 6L, 6L, 7L, 8L, 9L, 9L, 10L, 11L, 12L, 12L, 13L, 
14L, 15L, 16L, 16L, 17L, 17L, 18L, 18L, 19L, 19L, 20L, 21L, 21L, 
22L, 23L, 24L, 24L, 25L, 26L, 26L, 27L, 28L, 29L, 30L, 30L, 31L, 
32L, 32L, 33L, 34L, 34L, 35L, 35L, 36L, 36L, 37L, 37L, 38L, 38L, 
39L, 39L, 40L, 41L), .Label = c("00017dd3-f55e-e011-854c-00237de2db9e", 
"0005f624-565a-e011-854c-00237de2db9e", "0007b82f-bfe0-4b55-963e-be5a2a1e7f7b", 
"00095b52-fd0a-e011-9264-00237de2db9e", "00098835-9554-4898-8d4b-82d42b8b4464", 
"000a727f-8334-e011-854c-00237de2db9e", "000c0a31-f459-4365-aa3a-1978deb89f67", 
"000e36a4-6e56-4851-8d36-2caf0bdd63ec", "000f05a6-cf94-4518-8de7-1773cbea8198", 
"00105574-a775-43e8-8472-c8b294e46786", "00112a96-3c47-409c-83bd-6f30d8d77100", 
"0012f133-f68e-e011-986b-78e7d1fa76f8", "0012f899-1c45-4917-90b7-11bea31e467e", 
"0014606b-17b7-46d6-957f-e23b43fcc773", "001478e2-3e50-486c-ae3b-d1ceb36f0fd0", 
"00159bab-ce82-454a-9343-f7d8f1500a68", "0015b84e-a48d-443e-936e-cabdb80604dc", 
"0018f8ba-c289-4483-bf74-5cd0e6c6ae9e", "0019487f-f31e-4e3e-b499-fd48077f71f9", 
"00199523-c42f-47fd-a44a-066fb726f6dd", "0019dace-41e1-439f-8b73-328d02537fe7", 
"001a346e-2a15-45d4-9fb1-6b4e2448d362", "001b0c90-5c86-4290-bad3-0d6794a6bfe8", 
"001c0d0d-3059-e011-854c-00237de2db9e", "001c9cbb-8c79-4cbf-bc50-219a70ab20b8", 
"001dcf83-7492-e011-986b-78e7d1fa76f8", "001dd5cf-3e3b-4ceb-823c-346c15f88878", 
"001e0ef7-b977-436a-ab20-8c4af4f5b230", "001fc407-da48-4c42-9325-7756b160cbbd", 
"001fdaa1-9471-e011-81d2-78e7d1fa76f8", "0020029f-2667-4c03-b99f-d803eccd27d4", 
"00218e00-896e-e011-81d2-78e7d1fa76f8", "002196af-60c7-4baf-abdb-589b3a481686", 
"0021a908-7ff6-df11-9264-00237de2db9e", "0021bced-909a-e011-986b-78e7d1fa76f8", 
"0021f0fb-cb9f-e011-986b-78e7d1fa76f8", "00228254-9b20-4d40-a4a5-a7c608f81dfa", 
"002357ba-5656-4308-bb92-6cc97f50d7aa", "0025eafd-a64f-e011-854c-00237de2db9e", 
"0026b36c-ebc2-43f0-a0f7-72f43b70530b", "00277e09-543e-449a-8571-38f71a21cee2"
), class = "factor"), B = structure(c(10L, 10L, 27L, 
27L, 28L, 23L, 23L, 38L, 38L, 24L, 24L, 19L, 35L, 26L, 26L, 28L, 
5L, 36L, 36L, 21L, 11L, 1L, 14L, 14L, 4L, 4L, 9L, 9L, 16L, 16L, 
3L, 7L, 7L, 13L, 37L, 17L, 17L, 29L, 15L, 15L, 12L, 31L, 32L, 
8L, 8L, 2L, 30L, 30L, 39L, 6L, 6L, 22L, 22L, 20L, 20L, 34L, 34L, 
18L, 18L, 33L, 33L, 25L, 29L), .Label = c("Aashu", "Actonica Studio", 
"appyminds", "blackink", "BroeckiE", "Challenge Solutions LLC", 
"CPP_MSP", "Datentechnik Innovation GmbH", "DerekM", "Dimension Srl", 
"Dmitry Kazarin", "edg3", "fruitymo", "Geckosan", "Genera Interactive SL", 
"HandyWare", "Infinite Square", "JTO.C Sq.", "JuJuZ", "Kitten Flavour", 
"Krofita", "Mark Agholor", "MCTronix.com", "Michael Snow", "michaloxo", 
"mobilewares.net", "NotoMedia LLC", "OKR", "P.F. CHAUVET", "Panoylhs", 
"Pratik Gandhi", "raavr", "ReadBooks", "RGP", "Seesmic", "The KeitaCorp", 
"viileetek", "Violineage", "Yalla Apps"), class = "factor"), 
    Date = structure(c(1302926400, 1302926400, 1302408000, 
    1302408000, 1327467600, 1292994000, 1292994000, 1322370000, 
    1322370000, 1297486800, 1297486800, 1326949200, 1321333200, 
    1314763200, 1314763200, 1328418000, 1327381200, 1307505600, 
    1307505600, 1325221200, 1324530000, 1327381200, 1326862800, 
    1326862800, 1326171600, 1326171600, 1325566800, 1325566800, 
    1327122000, 1327122000, 1320379200, 1324702800, 1324702800, 
    1327726800, 1327986000, 1301544000, 1301544000, 1332302400, 
    1308369600, 1308369600, 1325912400, 1331611200, 1325912400, 
    1304481600, 1304481600, 1325653200, 1304395200, 1304395200, 
    1322542800, 1294117200, 1294117200, 1309147200, 1309147200, 
    1309320000, 1309320000, 1313208000, 1313208000, 1325739600, 
    1325739600, 1300334400, 1300334400, 1325826000, 1321938000
    ), class = c("POSIXct", "POSIXt"), tzone = "")), .Names = c("A", 
"B", "Date"), row.names = c(NA, -63L), class = "data.frame")

我正在尝试绘制一个散点图，其中 Y 轴根据日期字段排序。但是，我只能在我将A其视为一个因素的情况下执行以下操作。关于如何实现这一目标的任何建议？

p = ggplot(points, aes(Date, factor(A))) +
    geom_point(aes(colour=factor(A)), size=1.8) + 
    scale_shape(solid=FALSE) + 
    scale_y_discrete("", breaks=NA)
4

1 回答 1

1

当您要求 ggplot 在交换 x 和 y 位置后将日期值视为离散变量时，就会出现错误。当您删除它时它会消失：

p = ggplot(points, aes(x=A, y=Date)) +
     geom_point(aes(colour=factor(A)), size=1.8) + 
     scale_shape(solid=FALSE) 
p

或者，您可以通过将离散轴调用应用于 x 轴来消除线条：

 p = ggplot(points, aes(x=A, y=Date)) +
    geom_point(aes(colour=factor(A)), size=1.8) + 
    scale_shape(solid=FALSE) + 
    scale_x_discrete("", breaks=NULL)
 P

不幸的是，问题的标题似乎与问题的文本没有非常明确的联系，所以我不知道这是否是你所要求的。

于 2012-05-07T04:57:32.653 回答