个人中心
文章发布
退出
作者热门文章
- html - 出于某种原因，IE8 对我的 Sass 文件中继承的 html5 CSS 不友好？
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景？
25
4
我正在使用 ggplot 和 geom_tile 来绘制几对颜色编码的分类时间序列。该图看起来不错，只是我想增加每对数据之间的空间以提高可读性。因此，同一 session 中的每两个条(例如 session.1.a 和 session.1.b)应该像现在一样接近，但我想增加例如之间的空间session.1.b 和 session.2.a，以及 session.2.b 和 session.3.a 之间。我怎么能这样做？任何帮助表示赞赏 =]
这是简化图的样子:
简化的数据集如下所示:
mydata <- read.table(header=TRUE, text="
dataID time value
session.1.a 0 g
session.1.a 1 a
session.1.a 2 g
session.1.a 3 i
session.1.a 4 g
session.1.a 5 g
session.1.a 6 i
session.1.a 7 a
session.1.a 8 g
session.1.a 9 a
session.1.a 10 a
session.1.a 11 a
session.1.a 12 a
session.1.a 13 g
session.1.a 14 g
session.1.a 15 a
session.1.a 16 a
session.1.a 17 a
session.1.a 18 a
session.1.a 19 g
session.1.a 20 g
session.1.a 21 a
session.1.a 22 g
session.1.a 23 a
session.1.a 24 a
session.1.a 25 a
session.1.a 26 a
session.1.a 27 a
session.1.a 28 a
session.1.a 29 a
session.1.a 30 a
session.1.a 31 a
session.1.a 32 a
session.1.a 33 a
session.1.a 34 a
session.1.b 0 b
session.1.b 1 b
session.1.b 2 b
session.1.b 3 j
session.1.b 4 j
session.1.b 5 j
session.1.b 6 j
session.1.b 7 b
session.1.b 8 h
session.1.b 9 h
session.1.b 10 b
session.1.b 11 b
session.1.b 12 b
session.1.b 13 b
session.1.b 14 h
session.1.b 15 b
session.1.b 16 b
session.1.b 17 b
session.1.b 18 b
session.1.b 19 b
session.1.b 20 h
session.1.b 21 b
session.1.b 22 h
session.1.b 23 b
session.1.b 24 b
session.1.b 25 b
session.1.b 26 b
session.1.b 27 b
session.1.b 28 b
session.1.b 29 b
session.1.b 30 b
session.1.b 31 b
session.1.b 32 b
session.1.b 33 b
session.1.b 34 b
session.2.a 0 a
session.2.a 1 a
session.2.a 2 g
session.2.a 3 g
session.2.a 4 g
session.2.a 5 a
session.2.a 6 g
session.2.a 7 a
session.2.a 8 a
session.2.a 9 a
session.2.a 10 a
session.2.a 11 a
session.2.a 12 a
session.2.a 13 a
session.2.a 14 a
session.2.a 15 g
session.2.a 16 a
session.2.a 17 a
session.2.a 18 a
session.2.a 19 a
session.2.a 20 g
session.2.a 21 a
session.2.a 22 a
session.2.a 23 a
session.2.a 24 a
session.2.a 25 a
session.2.b 0 j
session.2.b 1 b
session.2.b 2 j
session.2.b 3 h
session.2.b 4 h
session.2.b 5 h
session.2.b 6 h
session.2.b 7 NA
session.2.b 8 b
session.2.b 9 b
session.2.b 10 b
session.2.b 11 b
session.2.b 12 b
session.2.b 13 b
session.2.b 14 b
session.2.b 15 b
session.2.b 16 b
session.2.b 17 b
session.2.b 18 b
session.2.b 19 b
session.2.b 20 h
session.2.b 21 b
session.2.b 22 b
session.2.b 23 b
session.2.b 24 b
session.2.b 25 b
session.3.a 0 i
session.3.a 1 a
session.3.a 2 a
session.3.a 3 a
session.3.a 4 a
session.3.a 5 g
session.3.a 6 a
session.3.a 7 a
session.3.a 8 a
session.3.a 9 a
session.3.a 10 a
session.3.a 11 a
session.3.a 12 a
session.3.a 13 a
session.3.a 14 a
session.3.a 15 i
session.3.a 16 i
session.3.a 17 g
session.3.a 18 g
session.3.a 19 g
session.3.a 20 g
session.3.a 21 a
session.3.a 22 a
session.3.a 23 a
session.3.a 24 a
session.3.a 25 g
session.3.a 26 a
session.3.a 27 a
session.3.a 28 a
session.3.a 29 a
session.3.a 30 a
session.3.a 31 a
session.3.a 32 g
session.3.a 33 g
session.3.a 34 a
session.3.a 35 a
session.3.a 36 a
session.3.a 37 a
session.3.a 38 g
session.3.a 39 a
session.3.a 40 a
session.3.a 41 a
session.3.b 0 j
session.3.b 1 b
session.3.b 2 b
session.3.b 3 b
session.3.b 4 j
session.3.b 5 h
session.3.b 6 b
session.3.b 7 b
session.3.b 8 b
session.3.b 9 b
session.3.b 10 b
session.3.b 11 b
session.3.b 12 b
session.3.b 13 b
session.3.b 14 b
session.3.b 15 b
session.3.b 16 b
session.3.b 17 b
session.3.b 18 b
session.3.b 19 h
session.3.b 20 h
session.3.b 21 b
session.3.b 22 b
session.3.b 23 b
session.3.b 24 h
session.3.b 25 b
session.3.b 26 b
session.3.b 27 b
session.3.b 28 b
session.3.b 29 b
session.3.b 30 b
session.3.b 31 b
session.3.b 32 b
session.3.b 33 h
session.3.b 34 b
session.3.b 35 b
session.3.b 36 b
session.3.b 37 b
session.3.b 38 b
session.3.b 39 b
session.3.b 40 b
session.3.b 41 b
")
desiredLevels=c("a",
"b",
"c",
"d",
"e",
"f",
"g",
"h",
"i",
"j",
"NA")
desiredLabels=c("a",
"b",
"c",
"d",
"e",
"f",
"g",
"h",
"i",
"j",
"NA")
mydata$value = factor(mydata$value, levels = desiredLevels, labels = desiredLabels)
desiredBreaks=c("a",
"b",
"c",
"d",
"e",
"f",
"g",
"h",
"i",
"j",
"NA")
desiredColours = c("#009E73",
"#009E73",
"#F0E442",
"#F0E442",
"#CC79A7",
"#CC79A7",
"#D55E00",
"#D55E00",
"#56B4E9",
"#56B4E9",
"white")
ts.plot = ggplot(mydata, aes(x = time, y = dataID, fill = value))
ts.plot = ts.plot + geom_tile(stat="identity", width=1, height=.9)
ts.plot = ts.plot + scale_fill_manual(drop = FALSE,
name = "categories",
breaks = desiredBreaks,
values = desiredColours)
time.labels = c(0, rep("",4), 5,rep("",4), 10, rep("",4), 15,rep("",4), 20,
rep("",4), 25,rep("",4), 30,rep("",4), 35,rep("",4), 40, rep("",4), 45)
time.breaks = seq(from=0,to = 45,1)
ts.plot = ts.plot + scale_x_continuous(limits=c(-1, 45), expand = c(0,1), breaks = time.breaks, labels = time.labels)
ts.plot = ts.plot + labs(title = "main title",
x = "\ntime (s)",
y = "")
ts.plot = ts.plot + theme(plot.title = element_text(size = rel(2)),
axis.text.x = element_text(size = 24, colour = "black"),
axis.text.y = element_text(size = 24, colour="black"),
axis.title.x = element_text(size = 24),
legend.text = element_text(size = 24),
legend.direction = "vertical",
legend.position = "right",
legend.key=element_rect(size=1, colour = "black"),
legend.key.size = unit(1, "lines"),
legend.title = element_text(size = 24),
axis.ticks.y = element_line(size=2),
panel.grid.minor = element_blank())
ts.plot = ts.plot + guides(fill=guide_legend(ncol=1), title.position="top" )
ts.plot
最佳答案
尝试这个:
labels <- levels(mydata$dataID)
# the numbers in the first vector here define the positions/distances of the tiles:
mydata$aux <- rep(c(1,2,4,5,7,8), times = table(mydata$dataID))
ts.plot = ggplot(mydata, aes(x = time, y = aux, fill = value))
ts.plot = ts.plot + geom_tile(stat="identity", width=1, height=.9) + scale_y_discrete(breaks = c(1,2,4,5,7,8), labels = labels, limits = c(1,2,4,5,7,8))
ts.plot
关于R，ggplot2 : How do I increase space between specific geom_tile bars to group them in pairs?，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/34371795/
25
4
0
我想编写一个 linq 表达式，该表达式将返回不包含特定值的 ID。例如，我想返回所有不具有 Value = 30 的不同 ID。 ID, Value 1, 10 1, 20 1, 30 2,
我正在尝试使用 Regexp 匹配 Nmap 命令的输出。可以有两种不同的格式。 第一种格式(当 nmap 可以找到主机名时) Nmap scan report for 2u4n32t-n4 (192
我正在 Visual Studio 2012 上使用 C# 开发一个软件。我使用 MySQL Connector 6.9.1 进行 MySQL 连接。我的软件在我的操作系统(Win8 x64)上运行顺
在 Django 中(使用 django.contrib.auth 时)我可以添加一个 Group到另一个 Group ?即一个Group成为另一个成员(member) Group ? 如果是这样，我
我试图通过使用动态组参数对数据进行分组来循环。 我们可以在循环的 WHERE 条件上使用动态查询，但我不知道是否可以在组条件中使用动态字符串。 以下是用户决定按哪个字段分组，然后根据决定放置其他逻辑的
我有这样的字符串 s = 'MR1|L2-S1x' 模式总是相同的:一个或两个字符，在 [|.+:x-] 中可选地后跟一个数字和一个分隔符。此模式可以重复 6 次。 所以匹配模式很明确。 p = r'
我有一个带有时间戳字段“bar”的表“foo”。如何仅获取查询的最旧时间戳，例如: SELECT foo.bar from foo？我尝试执行以下操作: SELECT MIN(foo.bar) fro
在我的 Django 项目中，我有一个 user_manage 应用程序。 我在 user_manage 应用的 model.py 中创建了一个名为 UserManage 的模型: from djan
所以我有这样的输入: 还有一个模板指令，例如: 看来我只获得了 foo 和 bar 的组。 (为什么？我预计我可能会得到第三组 current-group-key() = '')。
我正在尝试扩展 django.contrib.auth 并遇到将用户添加到组中的情况，这可以通过两种方式完成。我只是想知道为什么会这样，以及其中一种相对于另一种的优势是什么。 最佳答案 他们做完全相同
我使用的是旧的 PHP 脚本，并且此查询有错误。由于我没有使用 mysql 的经验，因此无法修复它。 "SELECT COUNT(p.postid) AS pid, p.*, t.* FROM ".T
我有几行 Objective-C 代码，例如: ABAddressBookRef addressBook; CFErrorRef error = NULL; addressBook = ABAddre
我正在使用 MariaDB IMDB 电影数据集，我试图解决以下问题。电影表包含 id、名称、排名和年份列 A decade is a sequence of 10 consecutive years
让我从数据开始，以便更好地描述我的需求。我有一个名为 SUPERMARKET 的表，其中包含以下字段: Field 1: StoreID Field 2: ProductCategory Field
你好我有这个查询: SELECT DISTINCT a.id, a.runcd, (SELECT SUM(b.CALVAL) FROM GRS b WHERE b.PCode=11000 AND a.
我想在 xquery 中使用 Group By。有人可以告诉我如何在 Marklogic 中使用 Group By 吗？ 最佳答案 或者，您可以使用 xdmp:xslt-invoke 调用 XSLT或
因此，当通过 from sequelize 请求组时，如下所示: return models.WorkingCalendar .findAll({
我希望我解释正确。 我有 2 个表，有 第一个表(table1) +------------+------+-------+-------+ | Date | Item | Block |
我的表 MYTABLE 有 2 列:A 和 B 我有以下代码片段: SELECT MYTABLE.A FROM MYTABLE HAVING SUM(MYTABLE.B) > 100
我有一个简单的行分组查询，需要 0.0045 秒。 300.000 行 从表 GROUP BY cid 中选择 cid 当我添加 MAX() 进行查询时，需要 0.65 秒才能返回。 从表 GROUP
我是一名优秀的程序员,十分优秀！