- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在使用 vioplot 包中的 vioplot 函数,我想提供一个列表作为输入。所以这就是我所拥有的:
# Violin Plots
library(vioplot)
x1 <- mtcars$mpg[mtcars$cyl==4]
x2 <- mtcars$mpg[mtcars$cyl==6]
x3 <- mtcars$mpg[mtcars$cyl==8]
vioplot(x1, x2, x3, names=c("4 cyl", "6 cyl", "8 cyl"),
col="gold")
title("Violin Plots of Miles Per Gallon")
# Violin Plots
library(vioplot)
x1 <- mtcars$mpg[mtcars$cyl==4]
x2 <- mtcars$mpg[mtcars$cyl==6]
x3 <- mtcars$mpg[mtcars$cyl==8]
l<-list(x1,x2,x3)
vioplot(l, names=c("4 cyl", "6 cyl", "8 cyl"),
col="gold")
title("Violin Plots of Miles Per Gallon")
Error in min(data) : invalid 'type' (list) of argument
最佳答案
我已经修改了 vioplot 函数以接受列表作为输入,您可以使用这个 vioplot2:
vioplot2<-function (x, ..., range = 1.5, h = NULL, ylim = NULL, names = NULL,
horizontal = FALSE, col = "magenta", border = "black", lty = 1,
lwd = 1, rectCol = "black", colMed = "white", pchMed = 19,
at, add = FALSE, wex = 1, drawRect = TRUE)
{
if(!is.list(x)){
datas <- list(x, ...)
} else{
datas<-x
}
n <- length(datas)
if (missing(at))
at <- 1:n
upper <- vector(mode = "numeric", length = n)
lower <- vector(mode = "numeric", length = n)
q1 <- vector(mode = "numeric", length = n)
q3 <- vector(mode = "numeric", length = n)
med <- vector(mode = "numeric", length = n)
base <- vector(mode = "list", length = n)
height <- vector(mode = "list", length = n)
baserange <- c(Inf, -Inf)
args <- list(display = "none")
if (!(is.null(h)))
args <- c(args, h = h)
for (i in 1:n) {
data <- datas[[i]]
data.min <- min(data)
data.max <- max(data)
q1[i] <- quantile(data, 0.25)
q3[i] <- quantile(data, 0.75)
med[i] <- median(data)
iqd <- q3[i] - q1[i]
upper[i] <- min(q3[i] + range * iqd, data.max)
lower[i] <- max(q1[i] - range * iqd, data.min)
est.xlim <- c(min(lower[i], data.min), max(upper[i],
data.max))
smout <- do.call("sm.density", c(list(data, xlim = est.xlim),
args))
hscale <- 0.4/max(smout$estimate) * wex
base[[i]] <- smout$eval.points
height[[i]] <- smout$estimate * hscale
t <- range(base[[i]])
baserange[1] <- min(baserange[1], t[1])
baserange[2] <- max(baserange[2], t[2])
}
if (!add) {
xlim <- if (n == 1)
at + c(-0.5, 0.5)
else range(at) + min(diff(at))/2 * c(-1, 1)
if (is.null(ylim)) {
ylim <- baserange
}
}
if (is.null(names)) {
label <- 1:n
}
else {
label <- names
}
boxwidth <- 0.05 * wex
if (!add)
plot.new()
if (!horizontal) {
if (!add) {
plot.window(xlim = xlim, ylim = ylim)
axis(2)
axis(1, at = at, label = label)
}
box()
for (i in 1:n) {
polygon(c(at[i] - height[[i]], rev(at[i] + height[[i]])),
c(base[[i]], rev(base[[i]])), col = col, border = border,
lty = lty, lwd = lwd)
if (drawRect) {
lines(at[c(i, i)], c(lower[i], upper[i]), lwd = lwd,
lty = lty)
rect(at[i] - boxwidth/2, q1[i], at[i] + boxwidth/2,
q3[i], col = rectCol)
points(at[i], med[i], pch = pchMed, col = colMed)
}
}
}
else {
if (!add) {
plot.window(xlim = ylim, ylim = xlim)
axis(1)
axis(2, at = at, label = label)
}
box()
for (i in 1:n) {
polygon(c(base[[i]], rev(base[[i]])), c(at[i] - height[[i]],
rev(at[i] + height[[i]])), col = col, border = border,
lty = lty, lwd = lwd)
if (drawRect) {
lines(c(lower[i], upper[i]), at[c(i, i)], lwd = lwd,
lty = lty)
rect(q1[i], at[i] - boxwidth/2, q3[i], at[i] +
boxwidth/2, col = rectCol)
points(med[i], at[i], pch = pchMed, col = colMed)
}
}
}
invisible(list(upper = upper, lower = lower, median = med,
q1 = q1, q3 = q3))
}
关于r - 带有列表输入的 fiddle 图,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/22410606/
我有几个组的测量值,我想将它们绘制为 fiddle 图: set.seed(1) df 0, group] 现在我们可以根据他们是否应该有 fiddle 来使用不同的跟踪样式来绘制组 plot_ly
我在新的 Sencha Fiddle 中找不到我保存的 fiddle : 我曾经能够点击右上角的我的名字并获得保存的 fiddle 列表。 我再也找不到我保存的 fiddle 了。 最佳答案 使用搜索
我试过 violin在 Seaborn 中为每个 fiddle 绘制不同的颜色: sns.violinplot(x='type', y='den', data=mydf, ax=axes[0], co
创建将一把 fiddle 按 hue 分割的 fiddle 情节的正确方法是什么? 我尝试了不同的方法,似乎唯一的方法是为数据集中的每个条目创建一个共享相同值的特征。并将该功能的名称作为 x 传递。
我最近创建了一个成功编译并返回所需结果的查询。当我将该段代码用作 stackoverflow 上的用户为我提供的另一段代码中的子查询时,我遇到了一些问题,这些问题最终得到了解决。我试图在给我的那段代码
我正在尝试创建一个分组的 fiddle 图(见图),我在其中为四个分类变量绘制了 3 个级别。考虑到这些数据,除了盒子与后面更宽的 fiddle 图颜色相同使它们难以查看这一事实外,该图效果很好。理想
我有具有结构的 Pandas 数据框: A B 0 1 1 1 2 1 2 3 4 3 3 7 4 6 8 如何生成 Seaborn Violin 图,每列作为其自己的单独
也许这是一个愚蠢的想法,或者是一个脑电波。我有 4 个不同物种的脂质类数据集。数据是成比例的,总和是 1000。我想可视化每个物种中每个类别的比例差异。一般来说,堆积条形图是这里的方法,但是有几个类,
需要根据匹配的键删除重复的对象,但添加值。已经创建了片段和 fiddle 来查看。还在底部添加了预期结果。 我尝试了几种不同的方法,但无法获得预期的结果。我可以使用过滤器方法,但无法为匹配键添加值。请
这可能是最大的菜鸟问题,但我的代码可以在 fiddle 中工作,而不是在我的 html 中工作。少了什么东西?这是 fiddle 链接,下面是我的index.html:http://jsfiddle.
请查看the following mysql fiddle ... 现在只插入了最后一个值,即“18”。我不想只插入“18”,而是想插入例如“3;” 4; 9; 18'所以我希望该字段包含多个值。 我
抱歉标题不好,但我什至不知道如何解释... 这是 fiddle :http://sqlfiddle.com/#!2/f21e3/5 所以我得到了一个非常基本的产品表和我的数据表(在本例中为 tyds)
我正在尝试合并 2 个代码。我找到了我要找的两个代码。我真的很新@this所以请理解。 这是页眉页脚和背景: http://jsfiddle.net/F6dez/ 这是下拉菜单: http://jsf
我正在尝试制作this fiddle在网页上工作但没有成功。我以前做过这个,但是这个 fiddle 不起作用。 我尝试添加google的jquery或min jquery,但没有成功。我还尝试在 di
如果我从这里复制代码:https://jsfiddle.net/agt10exp/ 它在 fiddle 上运行良好,但是当我在我的电脑上创建一个新文件并将代码粘贴到其中时,我得到了相同的布局,但是它无
找不到与我的问题完全相关的主题。 我有这两个 div,DEMO here : Tab 我希望选项卡固定在绿色 div 的右下角的特定位置: 距绿色 div 顶部的 0px 距离(无论如何我认为这是
如何使用 ggplot2 像在 R 中一样绘制 fiddle 图?在 ggplot2 中,您可以创建漂亮的 fiddle 图,例如: ggplot(dat,aes(value,prob)) + geo
我想创建一个表that would look like this fiddle 我想知道当前代码是否是创建这种外观的最佳方式? HTML:
我尝试用 R 包 ggplot2 和代码绘制 fiddle 图 norm2 = function(v) return(sqrt(sum(v*v))) myfct = function(d) { v
我正在寻找一种方法来绘制带有许多 fiddle (列)的 fiddle 图。问题是我的专栏的长度各不相同。例如,它是这样的: "V1" "V2" "V1" 9 255.5 "V2" 432 286 "
我是一名优秀的程序员,十分优秀!