我使用了以下ggplot命令:
ggplot(survey, aes(x = age)) + stat_bin(aes(n = nrow(h3), y = ..count.. / n), binwidth = 10)
+ scale_y_continuous(formatter = "percent", breaks = c(0, 0.1, 0.2))
+ facet_grid(hospital ~ .)
+ theme(panel.background = theme_blank())
Run Code Online (Sandbox Code Playgroud)
生产
我想将facet标签更改为更短的标签(如Hosp 1,Hosp 2 ......),因为它们现在太长并且看起来很狭窄(增加图形的高度不是一个选项,它需要文档中的空间太大).我查看了facet_grid帮助页面,但无法弄清楚如何.
我正在创建一个刻面图,以预测值与残差的图表并排查看预测值与实际值.我将shiny
用于帮助探索使用不同训练参数的建模工作的结果.我用85%的数据训练模型,测试剩余的15%,并重复5次,每次收集实际/预测值.计算残差后,我的data.frame
样子如下:
head(results)
act pred resid
2 52.81000 52.86750 -0.05750133
3 44.46000 42.76825 1.69175252
4 54.58667 49.00482 5.58184181
5 36.23333 35.52386 0.70947731
6 53.22667 48.79429 4.43237981
7 41.72333 41.57504 0.14829173
Run Code Online (Sandbox Code Playgroud)
我想要的是:
pred
与act
和pred
对比resid
pred
对act
是相同的,理想地从min(min(results$act), min(results$pred))
至max(max(results$act), max(results$pred))
pred
与resid
不被通过我做什么实际与预测的情节影响.x
只绘制预测值并y
仅绘制剩余范围就可以了.为了并排查看两个图,我将数据融化:
library(reshape2)
plot <- melt(results, id.vars = "pred")
Run Code Online (Sandbox Code Playgroud)
现在情节:
library(ggplot2)
p <- ggplot(plot, aes(x = pred, y = …
Run Code Online (Sandbox Code Playgroud) 我经常有刻面的数值.我希望提供足够的信息来解释补充标题中的这些分面值,类似于轴标题.贴标签选项重复了许多不必要的文本,并且对于较长的变量标题不可用.
有什么建议?
默认值:
test<-data.frame(x=1:20, y=21:40, facet.a=rep(c(1,2),10), facet.b=rep(c(1,2), each=20))
qplot(data=test, x=x, y=y, facets=facet.b~facet.a)
Run Code Online (Sandbox Code Playgroud)
我想要的是:
我能在ggplot中做得最好:
qplot(data=test, x=x, y=y)+facet_grid(facet.b~facet.a, labeller=label_both)
Run Code Online (Sandbox Code Playgroud)
如@Hendy所示,类似于: 在ggplot2图中添加辅助y轴 - 使其完美
数据:
type size amount
T 50% 48.4
F 50% 48.1
P 50% 46.8
T 100% 25.9
F 100% 26.0
P 100% 24.9
T 150% 21.1
F 150% 21.4
P 150% 20.1
T 200% 20.8
F 200% 21.5
P 200% 16.5
Run Code Online (Sandbox Code Playgroud)
我需要使用ggplot(x轴 - >"type",y轴 - >"amount",group by"size")绘制上述数据的条形图.当我使用下面的代码时,我没有按照数据中显示的顺序获得变量"type"和"size".请看图.我已经使用了以下代码.
ggplot(temp, aes(type, amount , fill=type, group=type, shape=type, facets=size)) +
geom_bar(width=0.5, position = position_dodge(width=0.6)) +
facet_grid(.~size) +
theme_bw() +
scale_fill_manual(values = c("darkblue","steelblue1","steelblue4"),
labels = c("T", "F", "P"))
Run Code Online (Sandbox Code Playgroud)
.
为了解决订单问题,我使用了以下的变量"type"的因子方法.请看图.
temp$new = factor(temp$type, levels=c("T","F","P"), labels=c("T","F","P"))
Run Code Online (Sandbox Code Playgroud)
但是,现在我不知道如何修改变量"size"的顺序.它应该是50%,100%.150%和200%.
我知道这不是一个数据可视化问题,但老板要求它,所以我需要弄清楚它是否可行.
谢谢!
我不仅想知道什么是Facet,还有什么是Facet'在物理层面'(据我所知,它不是一个单独的罐子,而是什么?)?
我也想知道在部署之后它如何影响我的应用程序.我会解释一下真实的例子:
我有2个方面(由IDE创建):Spring Facet和Web Facet(用于jsf).我将它部署到Tomcat,我的应用程序运行正常.
然后我(通过IDE)添加了一个方面 - JPA Facet.我重新部署了应用程序,它仍然工作正常:)
所以,我只是好奇这是什么,为什么我们需要它?
我一直遇到标签问题<f:facet>
.我正在使用它的其他代码示例,但我不确定它的用途是什么.
我已经编写了一些代码,这些代码在方法上与我见过的其他代码完全相同,除非它包含在<f:facet name=actions>
标记中.当我在我的代码周围添加它时,我正在包装它的下拉框在我部署时消失.任何人都可以为此提出建议或让我深入了解如何以及何时使用方面?
这是我的代码,我不打扰添加bean代码,因为它们只是基本的getter和setter,我不认为它们会造成麻烦.
<f:facet name="actions">
<p:selectOneMenu id="SwitchWeekDrpDwnMenu"
value="#{depotWorkloadBean.selectView}"
partialSubmit="true">
<p:ajax update="mainForm"
listener="#{depotWorkloadBean.updateView}" />
<f:selectItem itemLabel="Day view" itemValue="Day"/>
<f:selectItem itemLabel="01/01/2014" itemValue="Week"/>
</p:selectOneMenu>
</f:facet>
Run Code Online (Sandbox Code Playgroud)
如果我删除了facet标签,则显示下拉框,但不能正常运行.
我有数据可以看到两种不同物种的单一栽培和混合栽培之间的生长差异.此外,我制作了一个图表,以使我的数据清晰.
我想要一个带有误差条的条形图,整个数据集当然更大,但是对于这个图,这是data.frame
带有条形图的方法.
plant species means
Mixed culture Elytrigia 0.886625
Monoculture Elytrigia 1.022667
Monoculture Festuca 0.314375
Mixed culture Festuca 0.078125
Run Code Online (Sandbox Code Playgroud)
有了这个数据I作出的曲线图ggplot2
,其中plant
是在x轴和means
所述y轴和I中使用的小面来划分种类.
这是我的代码:
limits <- aes(ymax = meansS$means + eS$se, ymin=meansS$means - eS$se)
dodge <- position_dodge(width=0.9)
myplot <- ggplot(data=meansS, aes(x=plant, y=means, fill=plant)) + facet_grid(. ~ species)
myplot <- myplot + geom_bar(position=dodge) + geom_errorbar(limits, position=dodge, width=0.25)
myplot <- myplot + scale_fill_manual(values=c("#6495ED","#FF7F50"))
myplot <- myplot + labs(x = "Plant treatment", y = "Shoot biomass (gr)")
myplot …
Run Code Online (Sandbox Code Playgroud) 我发现的唯一接近的事情是:Elasticsearch中的多个分组
基本上我正在尝试使ES等效于以下mysql查询:
select gender, age_range, count(distinct profile_id) as count
FROM TABLE group by age_range, gender
Run Code Online (Sandbox Code Playgroud)
年龄和性别本身很容易获得:
{
"query": {
"match_all": {}
},
"facets": {
"ages": {
"terms": {
"field": "age_range",
"size": 20
}
},
"gender_by_age": {
"terms": {
"fields": [
"age_range",
"gender"
]
}
}
},
"size": 0
}
Run Code Online (Sandbox Code Playgroud)
这使:
{
"ages": {
"_type": "terms",
"missing": 0,
"total": 193961,
"other": 0,
"terms": [
{
"term": 0,
"count": 162643
},
{
"term": 3,
"count": 10683
},
{
"term": 4,
"count": …
Run Code Online (Sandbox Code Playgroud) 以下是一种情况:
group1 <- seq(1, 10, 2)
group2 <- seq(1, 20, 3)
x = c(group1, group2)
mydf <- data.frame (X =x , Y = rnorm (length (x),5,1),
groups = c(rep(1, length (group1)), rep(2, length(group2))))
ggplot(mydf, aes(X, Y, group= groups)) + geom_point()+ facet_grid (.~ group)
Run Code Online (Sandbox Code Playgroud)
在下图中,不同的面由x限制缩放:
ggplot(mydf, aes(X, Y, group= groups)) + geom_point()+
facet_grid (.~ group, scales = "free_x")
Run Code Online (Sandbox Code Playgroud)
由于x的总宽度有意义,我想生成不同宽度的小平面,不仅规模不同.因此,预期的方面1的宽度应该是2的一半.