- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我有一张热图,其中一个标签是一串用“,”分隔的两个词。我想将标签的后缀设为斜体,同时保留前缀的字体不变。我意识到有一些问题解决了类似的问题,如果这是一个重复的问题,我深表歉意,但我无法将这些问题的任何解决方案应用于我的特定问题。
我有以下生成情节的代码:
ggplot(mockdata, aes(variable, Measurement)) +
geom_tile(aes(fill = mockdata$plotval), colour = "dark red") + facet_grid(category~type, scales='free', space='free') + scale_fill_gradient2(limits=c(-20, 20),high = "firebrick3", low = "dodgerblue4") +
theme_minimal() + theme(axis.text.x=element_text(size=28, angle=90), axis.text.y=element_text(size=28)) +
labs(title="", x="", y="", fill="") + theme(strip.text.x=element_blank(),strip.text.y=element_text(size=20, angle=0))
我希望前缀(这里是数字 23:42 但实际上是一个字符串)保持不变,同时将后缀设置为斜体。我怎么能做到这一点?(我应该注意,我的数据框中也有只有前缀或只有后缀的列,所以像 expression(paste(column1, italics(column2), sep="")) 这样的东西可以工作,虽然它对我不起作用所以远的)。
这是可重现的数据:
dput(mockdata)
structure(list(Measurement = structure(c(42L, 41L, 40L, 39L,
38L, 37L, 36L, 35L, 34L, 33L), .Label = c("1, italic_suffix",
"2, italic_suffix", "3, italic_suffix", "4, italic_suffix", "5, italic_suffix",
"6, italic_suffix", "7, italic_suffix", "8, italic_suffix", "9, italic_suffix",
"10, italic_suffix", "11, italic_suffix", "12, italic_suffix",
"13, italic_suffix", "14, italic_suffix", "15, italic_suffix",
"16, italic_suffix", "17, italic_suffix", "18, italic_suffix",
"19, italic_suffix", "20, italic_suffix", "21, italic_suffix",
"22, italic_suffix", "23, italic_suffix", "24, italic_suffix",
"25, italic_suffix", "26, italic_suffix", "27, italic_suffix",
"28, italic_suffix", "29, italic_suffix", "30, italic_suffix",
"31, italic_suffix", "32, italic_suffix", "33, italic_suffix",
"34, italic_suffix", "35, italic_suffix", "36, italic_suffix",
"37, italic_suffix", "38, italic_suffix", "39, italic_suffix",
"40, italic_suffix", "41, italic_suffix", "42, italic_suffix"
), class = c("ordered", "factor")), category = structure(c(1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L), .Label = c("x1", "x2", "x3",
"x4", "x5", "x6", "x7", "x8", "x9"), class = "factor"), variable = structure(c(1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("A", "B", "C",
"a", "b", "c", "d", "e", "f"), class = "factor"), Pval = c(2.47889266743109e-11,
3.57296480818891e-12, 2.95428165629922e-21, 6.55646318564946e-12,
0.00140846156326513, 0.00504059407383829, 0.239272686561618,
0.146388841964746, 0.0193041667726786, 34.6978854862654), effect = c(1.40367296123877,
0.267565311381035, 0.157909806505032, 0.117848801449174, 0.139575361152878,
0.153551445281832, 0.254959981281264, 0.0635385821595322, 0.0832431045850506,
0.010863571087271), direction = c(1, 1, 1, 1, 1, 1, 1, 1, 1,
1), plotval = c(10.6057422771658, 11.4469712613471, 20.5295481021367,
11.1833303729987, 2.85125500035703, 2.29751827550182, 0.62110687410944,
0.83449202476544, 1.71434893912345, -1.54030300938373), type = structure(c(1L,
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L), .Label = c("Individual",
"Composite"), class = "factor"), `NA` = list(c("rs188468174",
" RUNX3"), c("rs35668054", " CYP26B1"), c("rs968567", " FADS2"
), c("rs9276244", " HLA-DQA2"), c("rs10065637", " ANKRD55"),
c("rs1071888", " ASCC2"), c("rs142973694", " MICA"), c("*rs3815768",
" ELL2"), c("rs3184504", " SH2B3"), c("rs2926468", " FCGR3B"
)), `NA` = c(" RUNX3", " CYP26B1", " FADS2", " HLA-DQA2",
" ANKRD55", " ASCC2", " MICA", " ELL2", " SH2B3", " FCGR3B")), .Names = c("Measurement",
"category", "variable", "Pval", "effect", "direction", "plotval",
"type", NA, NA), row.names = c(NA, 10L), class = "data.frame")
最佳答案
以下是使用自定义标签的方法。创意被采纳from question由 Haboryme 链接。请注意,我将代码最小化了一点,因为 theme
对于演示目的不是必需的。
library(ggplot2)
labs <- sapply(strsplit(as.character(mockdata$Measurement), ", "),
FUN = function(x) {
x1 <- x[1]; x2 <- x[2]
parse(text = paste("plain('", x1, ",') ~ ", "italic('", x2, "')", sep = ""))
})
ggplot(mockdata, aes(variable, Measurement)) +
geom_tile(aes(fill = mockdata$plotval), colour = "dark red") +
facet_grid(category~type, scales='free', space='free') +
scale_fill_gradient2(limits=c(-20, 20),high = "firebrick3", low = "dodgerblue4") +
theme_minimal() +
scale_y_discrete(labels = labs, breaks = mockdata$Measurement) +
labs(title="", x="", y="", fill="")
关于r - R中绘图标签的斜体后缀,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/40487744/
所以我使用一个带有整个 block 的标签作为链接,它是一个产品展示,所以你点击它会转到产品页面。现在我创建了一个标签作为链接到购物车页面的按钮。所以我让它工作,但是当我点击购物车按钮时,两个页面都会
根据 Web 标准,创建带有标题 1 的链接的正确代码是什么? 是吗 stackoverflow 或 stackoverflow 谢谢 最佳答案 根据网络标准,您不能将 block 元素放入内
在Java中它是这样写的..当我移植这段代码时...意识到没有这样的东西 break 和continue . 我知道这些命令没有包含在内,因为在使用带有命令的 goto 时必须有一种更简洁的方法来执
我们有一个相当标准的发布过程,使用 Visual Source Safe 在发布之前标记构建。这允许我们在出现任何问题时从该标签中获取,并在需要更改时使用它进行分支。 我们有几个不同的项目,并且总是使
我必须创建一个搜索内容,其中包含搜索框、标题和段落描述。默认情况下,描述被禁用,当我输入一些与描述文本匹配的文本时,描述段落标签应该打开。一些匹配的演示是这样的: [ fiddle ][1] 但默认情
我一直在阅读有关 的文档标签,我似乎无法理解它与简单地使用 有何不同那是 display: none; 文档:template tag 例子 对比 例子
我需要一个脚本来复制当开关按钮打开时标记,当开关按钮关闭时删除标记。我需要一个简单的方法。这是开关按钮: 我试过这个: var change
JSF 是一个 MVC 框架,但我很困惑为什么我们已经有了这么多 HTML 标签还需要 JSF 标签。毫无疑问,JSF 简化了很多事情。我想进一步了解 JSF 中的模型 View 和 Controll
我在这个 website 上看到了那些 html 代码: Homepa
我添加了 photoswipe 插件,可以使用 搜索我的所有照片。标签,如果点击,照片就会变成全屏。我让它工作了,但现在我的导航栏(有 标签)在点击时会触发 photoswipe 插件。 在 ph
标签
我正在尝试截断显示自 的文本标签,但它不工作。我将样式应用于其他标签样式并且它确实有效(我看到的示例中没有一个使用 标签)。我想知道是否有人可以向我解释为什么会这样(我不是最擅长 HTML/CSS
HTML 是这样的: Menu 1 Menu 2 Sub menu 2
我可以更改 TextInputLayout 的位置 float 标签(底部 float 标签)吗?我需要为波纹管 float 标签设置正确的位置。 最佳答案 我解决了我的问题,这是我的 xml:
我的代码是 printMsg : function(data) { $("#message").html(data.bodyText); ... } 这里 data.body
我是 Scrapy 和 Xpath 的初学者,我正在寻找解析具有以下结构的网站 cat1 value1 value2
关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。 要求提供代码的问题必须表现出对所解决问题的最低限度理解。包括尝试过的解决方案、为什么它们不起作用,以及
我必须从 xml 中解析数据。这是我的 xml- 或者它的 url 是:http://mobileecommerce.site247365.com/admin/catdata.xml News f
如何创建应该允许多行数据的标记。不要说使用textarea标签。我知道,但我只想 标记因为标签具有 value 属性。所以当我从 xml 文件获取值时,我应该使用 jquery 语法动态获取.. 最佳
我有一个页面使用我定义的某些样式。 在同一页面上,我刚刚导入了一个使用自己样式的外部 jQuery 插件,例如,包括 。被我自己覆盖的标签样式。 如何确保我的样式表中的样式不会覆盖 jQuery 插件
关闭。这个问题是opinion-based .它目前不接受答案。 想要改进这个问题? 更新问题,以便 editing this post 可以用事实和引用来回答它. 关闭 8 年前。 Improve
我是一名优秀的程序员,十分优秀!