- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
library(ggplot2)
library(moonBook)
library(webr)
PieDonut(mtcars,aes(gear,carb),start=3*pi/2,explode=3,explodeDonut=TRUE,maxx=1.7)
我以
https://cardiomoon.github.io/webr/reference/PieDonut.html 的例子为例.我想更改馅饼和 donut 的颜色,但是当我在函数中分配 color = c(...) 时它不起作用。
最佳答案
查看它们在内部硬编码的源代码 PieDonut
.最后返回的 plot 实际上是打印在同一页上的两个 ggplots。打印的最后一个是外环,例如如果您尝试存储对象然后打印,您将只会看到一半的情节:
f <- PieDonut(mtcars,aes(gear,carb),start=3*pi/2,explode=3,explodeDonut=TRUE,maxx=1.7)
plot(f)
在函数内部,内环的主要颜色是用
mainCol <- gg_color_hue(3)
创建的。和外部色调
makeSubColor(mainCol, no = 4)
在你的例子中。
gg_color_hue
具有不同的调色板功能,如
RColorBrewer::brewer.pal
例如以下。我不建议长期使用这个功能,因为功能很容易改变
PieDonutCustom <- function (data, mapping, start = getOption("PieDonut.start",
0), addPieLabel = TRUE, addDonutLabel = TRUE, showRatioDonut = TRUE,
showRatioPie = TRUE, ratioByGroup = TRUE, showRatioThreshold = getOption("PieDonut.showRatioThreshold",
0.02), labelposition = getOption("PieDonut.labelposition",
2), labelpositionThreshold = 0.1, r0 = getOption("PieDonut.r0",
0.3), r1 = getOption("PieDonut.r1", 1), r2 = getOption("PieDonut.r2",
1.2), explode = NULL, selected = NULL, explodePos = 0.1,
color = "white", pieAlpha = 0.8, donutAlpha = 1, maxx = NULL,
showPieName = TRUE, showDonutName = FALSE, title = NULL,
pieLabelSize = 4, donutLabelSize = 3, titlesize = 5, explodePie = TRUE,
explodeDonut = FALSE, use.label = TRUE, use.labels = TRUE,
family = getOption("PieDonut.family", ""), palette_name="Dark2")
{
(cols = colnames(data))
if (use.labels)
data = moonBook::addLabelDf(data, mapping)
count <- NULL
if ("count" %in% names(mapping))
count <- moonBook::getMapping(mapping, "count")
count
pies <- donuts <- NULL
(pies = moonBook::getMapping(mapping, "pies"))
if (is.null(pies))
(pies = moonBook::getMapping(mapping, "pie"))
if (is.null(pies))
(pies = moonBook::getMapping(mapping, "x"))
(donuts = moonBook::getMapping(mapping, "donuts"))
if (is.null(donuts))
(donuts = moonBook::getMapping(mapping, "donut"))
if (is.null(donuts))
(donuts = moonBook::getMapping(mapping, "y"))
if (!is.null(count)) {
df <- data %>% group_by(.data[[pies]]) %>% dplyr::summarize(Freq = sum(.data[[count]]))
df
}
else {
df = data.frame(table(data[[pies]]))
}
colnames(df)[1] = pies
df$end = cumsum(df$Freq)
df$start = dplyr::lag(df$end)
df$start[1] = 0
total = sum(df$Freq)
df$start1 = df$start * 2 * pi/total
df$end1 = df$end * 2 * pi/total
df$start1 = df$start1 + start
df$end1 = df$end1 + start
df$focus = 0
if (explodePie)
df$focus[explode] = explodePos
df$mid = (df$start1 + df$end1)/2
df$x = ifelse(df$focus == 0, 0, df$focus * sin(df$mid))
df$y = ifelse(df$focus == 0, 0, df$focus * cos(df$mid))
df$label = df[[pies]]
df$ratio = df$Freq/sum(df$Freq)
if (showRatioPie) {
df$label = ifelse(df$ratio >= showRatioThreshold, paste0(df$label,
"\n(", scales::percent(df$ratio), ")"),
as.character(df$label))
}
df$labelx = (r0 + r1)/2 * sin(df$mid) + df$x
df$labely = (r0 + r1)/2 * cos(df$mid) + df$y
if (!is.factor(df[[pies]]))
df[[pies]] <- factor(df[[pies]])
df
mainCol = RColorBrewer::brewer.pal(nrow(df), name=palette_name)
df$radius = r1
df$radius[df$focus != 0] = df$radius[df$focus != 0] + df$focus[df$focus !=
0]
df$hjust = ifelse((df$mid%%(2 * pi)) > pi, 1, 0)
df$vjust = ifelse(((df$mid%%(2 * pi)) < (pi/2)) | (df$mid%%(2 *
pi) > (pi * 3/2)), 0, 1)
df$segx = df$radius * sin(df$mid)
df$segy = df$radius * cos(df$mid)
df$segxend = (df$radius + 0.05) * sin(df$mid)
df$segyend = (df$radius + 0.05) * cos(df$mid)
df
if (!is.null(donuts)) {
subColor = makeSubColor(mainCol, no = length(unique(data[[donuts]])))
subColor
data
if (!is.null(count)) {
df3 <- as.data.frame(data[c(donuts, pies, count)])
colnames(df3) = c("donut", "pie", "Freq")
df3
df3 <- eval(parse(text = "complete(df3,donut,pie)"))
df3$Freq[is.na(df3$Freq)] = 0
if (!is.factor(df3[[1]]))
df3[[1]] = factor(df3[[1]])
if (!is.factor(df3[[2]]))
df3[[2]] = factor(df3[[2]])
df3 <- df3 %>% arrange(.data$pie, .data$donut)
a <- df3 %>% spread(.data$pie, value = .data$Freq)
a = as.data.frame(a)
a
rownames(a) = a[[1]]
a = a[-1]
a
colnames(df3)[1:2] = c(donuts, pies)
}
else {
df3 = data.frame(table(data[[donuts]], data[[pies]]),
stringsAsFactors = FALSE)
colnames(df3)[1:2] = c(donuts, pies)
a = table(data[[donuts]], data[[pies]])
a
}
a
df3
df3$group = rep(colSums(a), each = nrow(a))
df3$pie = rep(1:ncol(a), each = nrow(a))
total = sum(df3$Freq)
total
df3$ratio1 = df3$Freq/total
df3
if (ratioByGroup) {
df3$ratio = scales::percent(df3$Freq/df3$group)
}
else {
df3$ratio <- scales::percent(df3$ratio1)
}
df3$end = cumsum(df3$Freq)
df3
df3$start = dplyr::lag(df3$end)
df3$start[1] = 0
df3$start1 = df3$start * 2 * pi/total
df3$end1 = df3$end * 2 * pi/total
df3$start1 = df3$start1 + start
df3$end1 = df3$end1 + start
df3$mid = (df3$start1 + df3$end1)/2
df3$focus = 0
if (!is.null(selected)) {
df3$focus[selected] = explodePos
}
else if (!is.null(explode)) {
selected = c()
for (i in 1:length(explode)) {
start = 1 + nrow(a) * (explode[i] - 1)
selected = c(selected, start:(start + nrow(a) -
1))
}
selected
df3$focus[selected] = explodePos
}
df3
df3$x = 0
df3$y = 0
df
if (!is.null(explode)) {
explode
for (i in 1:length(explode)) {
xpos = df$focus[explode[i]] * sin(df$mid[explode[i]])
ypos = df$focus[explode[i]] * cos(df$mid[explode[i]])
df3$x[df3$pie == explode[i]] = xpos
df3$y[df3$pie == explode[i]] = ypos
}
}
df3$no = 1:nrow(df3)
df3$label = df3[[donuts]]
if (showRatioDonut) {
if (max(nchar(levels(df3$label))) <= 2)
df3$label = paste0(df3$label, "(", df3$ratio,
")")
else df3$label = paste0(df3$label, "\n(", df3$ratio,
")")
}
df3$label[df3$ratio1 == 0] = ""
df3$label[df3$ratio1 < showRatioThreshold] = ""
df3$hjust = ifelse((df3$mid%%(2 * pi)) > pi, 1, 0)
df3$vjust = ifelse(((df3$mid%%(2 * pi)) < (pi/2)) | (df3$mid%%(2 *
pi) > (pi * 3/2)), 0, 1)
df3$no = factor(df3$no)
df3
labelposition
if (labelposition > 0) {
df3$radius = r2
if (explodeDonut)
df3$radius[df3$focus != 0] = df3$radius[df3$focus !=
0] + df3$focus[df3$focus != 0]
df3$segx = df3$radius * sin(df3$mid) + df3$x
df3$segy = df3$radius * cos(df3$mid) + df3$y
df3$segxend = (df3$radius + 0.05) * sin(df3$mid) +
df3$x
df3$segyend = (df3$radius + 0.05) * cos(df3$mid) +
df3$y
if (labelposition == 2)
df3$radius = (r1 + r2)/2
df3$labelx = (df3$radius) * sin(df3$mid) + df3$x
df3$labely = (df3$radius) * cos(df3$mid) + df3$y
}
else {
df3$radius = (r1 + r2)/2
if (explodeDonut)
df3$radius[df3$focus != 0] = df3$radius[df3$focus !=
0] + df3$focus[df3$focus != 0]
df3$labelx = df3$radius * sin(df3$mid) + df3$x
df3$labely = df3$radius * cos(df3$mid) + df3$y
}
df3$segx[df3$ratio1 == 0] = 0
df3$segxend[df3$ratio1 == 0] = 0
df3$segy[df3$ratio1 == 0] = 0
df3$segyend[df3$ratio1 == 0] = 0
if (labelposition == 0) {
df3$segx[df3$ratio1 < showRatioThreshold] = 0
df3$segxend[df3$ratio1 < showRatioThreshold] = 0
df3$segy[df3$ratio1 < showRatioThreshold] = 0
df3$segyend[df3$ratio1 < showRatioThreshold] = 0
}
df3
del = which(df3$Freq == 0)
del
if (length(del) > 0)
subColor <- subColor[-del]
subColor
}
p <- ggplot() + ggforce::theme_no_axes() + coord_fixed()
if (is.null(maxx)) {
r3 = r2 + 0.3
}
else {
r3 = maxx
}
p1 <- p + ggforce::geom_arc_bar(aes_string(x0 = "x", y0 = "y",
r0 = as.character(r0), r = as.character(r1), start = "start1",
end = "end1", fill = pies), alpha = pieAlpha, color = color,
data = df) + transparent() + scale_fill_manual(values = mainCol) +
xlim(r3 * c(-1, 1)) + ylim(r3 * c(-1, 1)) + guides(fill = FALSE)
if ((labelposition == 1) & (is.null(donuts))) {
p1 <- p1 + geom_segment(aes_string(x = "segx",
y = "segy", xend = "segxend", yend = "segyend"),
data = df) + geom_text(aes_string(x = "segxend",
y = "segyend", label = "label", hjust = "hjust",
vjust = "vjust"), size = pieLabelSize, data = df,
family = family)
}
else if ((labelposition == 2) & (is.null(donuts))) {
p1 <- p1 + geom_segment(aes_string(x = "segx",
y = "segy", xend = "segxend", yend = "segyend"),
data = df[df$ratio < labelpositionThreshold, ]) +
geom_text(aes_string(x = "segxend", y = "segyend",
label = "label", hjust = "hjust",
vjust = "vjust"), size = pieLabelSize,
data = df[df$ratio < labelpositionThreshold,
], family = family) + geom_text(aes_string(x = "labelx",
y = "labely", label = "label"), size = pieLabelSize,
data = df[df$ratio >= labelpositionThreshold, ],
family = family)
}
else {
p1 <- p1 + geom_text(aes_string(x = "labelx", y = "labely",
label = "label"), size = pieLabelSize, data = df,
family = family)
}
if (showPieName)
p1 <- p1 + annotate("text", x = 0, y = 0, label = pies,
size = titlesize, family = family)
p1 <- p1 + theme(text = element_text(family = family))
if (!is.null(donuts)) {
if (explodeDonut) {
p3 <- p + ggforce::geom_arc_bar(aes_string(x0 = "x",
y0 = "y", r0 = as.character(r1), r = as.character(r2),
start = "start1", end = "end1", fill = "no",
explode = "focus"), alpha = donutAlpha,
color = color, data = df3)
}
else {
p3 <- p + ggforce::geom_arc_bar(aes_string(x0 = "x",
y0 = "y", r0 = as.character(r1), r = as.character(r2),
start = "start1", end = "end1", fill = "no"),
alpha = donutAlpha, color = color, data = df3)
}
p3 <- p3 + transparent() + scale_fill_manual(values = subColor) +
xlim(r3 * c(-1, 1)) + ylim(r3 * c(-1, 1)) + guides(fill = FALSE)
p3
if (labelposition == 1) {
p3 <- p3 + geom_segment(aes_string(x = "segx",
y = "segy", xend = "segxend", yend = "segyend"),
data = df3) + geom_text(aes_string(x = "segxend",
y = "segyend", label = "label", hjust = "hjust",
vjust = "vjust"), size = donutLabelSize,
data = df3, family = family)
}
else if (labelposition == 0) {
p3 <- p3 + geom_text(aes_string(x = "labelx",
y = "labely", label = "label"), size = donutLabelSize,
data = df3, family = family)
}
else {
p3 <- p3 + geom_segment(aes_string(x = "segx",
y = "segy", xend = "segxend", yend = "segyend"),
data = df3[df3$ratio1 < labelpositionThreshold,
]) + geom_text(aes_string(x = "segxend",
y = "segyend", label = "label", hjust = "hjust",
vjust = "vjust"), size = donutLabelSize,
data = df3[df3$ratio1 < labelpositionThreshold,
], family = family) + geom_text(aes_string(x = "labelx",
y = "labely", label = "label"), size = donutLabelSize,
data = df3[df3$ratio1 >= labelpositionThreshold,
], family = family)
}
if (!is.null(title))
p3 <- p3 + annotate("text", x = 0, y = r3,
label = title, size = titlesize, family = family)
else if (showDonutName)
p3 <- p3 + annotate("text", x = (-1) * r3,
y = r3, label = donuts, hjust = 0, size = titlesize,
family = family)
p3 <- p3 + theme(text = element_text(family = family))
grid::grid.newpage()
print(p1, vp = grid::viewport(height = 1, width = 1))
print(p3, vp = grid::viewport(height = 1, width = 1))
}
else {
p1
}
}
library(ggplot2)
library(moonBook)
library(webr)
library(RColorBrewer)
PieDonutCustom(mtcars,aes(gear,carb),start=3*pi/2,explode=3,explodeDonut=TRUE,maxx=1.7,
palette_name = "Dark2")
PieDonutCustom(mtcars,aes(gear,carb),start=3*pi/2,explode=3,explodeDonut=TRUE,maxx=1.7,
palette_name = "Set1")
mainCol = RColorBrewer::brewer.pal(nrow(df), name=palette_name)
在代码中,用你的函数替换这里的函数
关于r - PieDonut 如何改变馅饼和 donut 的颜色,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/68095243/
我有以下MWE function f(p) ans = zeros(p, 2) return ans end ans = f(2) ans b=ans.+1.0 ans 起初,ans是正确的,
OWIN AppBuilder“UseStatic”位从本地文件系统传送文件,这在某些情况下很方便,但我希望它从我在应用程序启动时预先填充的内存中 IDictionary 传送内容。任何人都可以指出一
我是 JavaScript 新手。 我的代码允许我列出 JSON 文档的元素及其类型,并将所有元素连接到一个字符串 donnees_types 中。 问题是 JavaScript 中的 typeof
我想在每次刷新时更改主页上的背景图像。我怎样才能做到这一点?我认为 jquery 是可能的,但我不太清楚。 感谢您对此主题的任何帮助或评论。 最佳答案 我不知道“如何”,但我找到了以下链接: http
所以我已经在这上面花了几个小时了,老实说我完全陷入困境。我写了一个 for 循环来计算整数中的数字数量,但我发现一旦我输入 10 位以上的数字,除数值就会发生变化,而且我不明白为什么。我在互联网上搜索
当我在使用表面 View 的游戏 Activity 和使用膨胀菜单的其他 Activity 之间切换时,我会收到错误消息。 日志猫: 07-13 15:15:34.464: ERROR/Android
听说很简单 R*=f; G*=f; B*=f; 其中 f 是标量值 0 .. 1.0 或更大改变亮度的方法不太正确颜色,但我找不到一些代码片段获得更好的东西(无需太多学习色彩理论)也许有人可以在这里给
如以下链接所述:- How to get the ThreadPoolExecutor to increase threads to max before queueing? 我将队列实现更改为在进入
我只显示最初提供 20 分钟 slotMinutes 的日历。我试图让用户即时更改为 10 分钟的 slotMinutes。 我有一个触发以下代码的按钮: $('#calendar').fullCal
我的问题是:我的应用程序中有一个新闻列表(UITableView)当我点击 1 个"new"时,我打开它,里面有一个后退按钮,可以让我回到列表。现在的问题是我必须在滑动时实现"new"更改,所以我制作
我面临着与 I'm trying to install psycopg2 onto Mac OS 10.6.3; it claims it can't find "stdarg.h" but I ca
需要通过为 array2 中不存在的索引设置 visible false 来从 array1 创建一个新的 array3。 在下面的示例中,我有索引 0,2。所以对于 1,3,结果数组必须具有 vis
我有一个对象,类似这样 var Egg = function(){ this.test = $(.slider .label); $('.slider').slider({
我想改变 ScrollView 的宽度。首先,我这样做了: var scrollWidthConstraint: NSLayoutConstraint! 然后设置它: scrollWidthConst
我有两个动画,一个是“过渡”,它在悬停时缩小图像,另一个是 animation2,其中图像的不透明度以周期性间隔重复变化。 我有 animation2 在图像上进行,当我将鼠标悬停在它上面时,anim
我是一个 jQuery 新手,一直在尝试添加一个脚本来更改 div onClick 的 id。 这是一个jsfiddle example . $(function accept() { $("
我正在尝试更改用户输入的字母的大小写,并将该字母的小写和大写版本存储在变量中。我已经编写了下面的代码,但它在运行时遇到了问题。有人指出是什么导致了问题吗? #include #include #i
假设我有这段代码: char num[2] = {15, 240}; char* p_num; 现在,如果我理解的一切正确,数组中的位应该像这样对齐: 00001111 11110000 我的问题是
var html = '' + count + '' + i.Description + '' + i.Priority + '' + i.Status + 'johnsmith- ' + creat
我在虚拟机上安装了 minix3,并希望我可以操纵当前的队列选择算法,以便我可以将其从优先级顺序更改为包括随机分类的低优先级作业的优先级顺序。我发现我需要更改的代码部分在 proc.c 中,具体部分是
我是一名优秀的程序员,十分优秀!