个人中心
文章发布
退出
作者热门文章
- html - 出于某种原因，IE8 对我的 Sass 文件中继承的 html5 CSS 不友好？
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景？
25
4
我正在尝试在 R 中制作一个多面绘图线图，无论有多少组可用于分面，它都会生成一个图。当运行下面的代码时，我得到了一个理想的绘图，如下图所示
# R 3.6.0
# most of these packages not necessary
library(shiny)
library(dplyr)
library(ggplot2)
library(bslib)
library(plotly)
library(readxl)
library(janitor)
library(tidyr)
library(lubridate)
library(DT)
library(stringr)
library(scales)
library(shinydashboard)
library(shinyBS)
times <- sample_data %>%
mutate(pre_start_time = if_else(pre_start_time == 999,
NA_real_,
pre_start_time),
pre_end_time = if_else(pre_end_time == -999,
NA_real_,
pre_end_time))
plot <-
sample_data %>%
ggplot() +
facet_wrap(~Group) +
geom_line(aes(x = hour_ending,
y = actual,
color = "Actual"),
linetype = 1) +
geom_line(aes(x = hour_ending,
y = baseline,
color = 'Predicted'),
linetype = 2) +
scale_color_manual(values = c("grey","orange")) +
labs(y = "Average", x = "Hour Ending") +
theme(
text = element_text(size = 14),
strip.background = element_rect(fill = "white"),
panel.grid.minor = element_blank(),
panel.grid.major.x = element_blank()
)
ggplotly(p = plot)
但是，在添加阴影矩形时，我得到了每个 X 图的所有 4 个变量的重复图例条目。有谁知道为什么这个问题只在使用多个 geom 时出现，以及如何解决它？我真的很感激任何见解! (底部的样本数据)
times <- sample_data %>%
mutate(pre_start_time = if_else(pre_start_time == 999,
NA_real_,
pre_start_time),
pre_end_time = if_else(pre_end_time == -999,
NA_real_,
pre_end_time))
plot <-
sample_data %>%
ggplot() +
facet_wrap(~Group) +
geom_rect(aes(xmin = start_time,
xmax = end_time,
fill = "Event"),
ymin = -9999,
ymax = 9999,
color = NA,
alpha = .5,
data = times) +
geom_rect(aes(xmin = pre_start_time,
xmax = pre_end_time,
fill = "Pre"),
ymin = -9999,
ymax = 9999,
color = NA,
alpha = .5,
data = times) +
scale_fill_manual(values = c("green","blue")) +
geom_line(aes(x = hour_ending,
y = actual,
color = "Actual"),
linetype = 1) +
geom_line(aes(x = hour_ending,
y = baseline,
color = 'Predicted'),
linetype = 2) +
scale_color_manual(values = c("grey","orange")) +
labs(y = "Average", x = "Hour Ending") +
theme(
text = element_text(size = 14),
strip.background = element_rect(fill = "white"),
panel.grid.minor = element_blank(),
panel.grid.major.x = element_blank()
)
ggplotly(p = plot)
SAMPLE DATA:
sample_data <- structure(list(Group = c("A", "A", "A", "A", "A", "A", "A", "A",
"A", "A", "A", "A", "A", "A", "A", "A", "B", "B", "B", "B", "B",
"B", "B", "B", "B", "B", "B", "B", "B", "B", "B", "B", "C", "C",
"C", "C", "C", "C", "C", "C", "C", "C", "C", "C", "C", "C", "C",
"C", "D", "D", "D", "D", "D", "D", "D", "D", "D", "D", "D", "D",
"D", "D", "D", "D", "E", "E", "E", "E", "E", "E", "E", "E", "E",
"E", "E", "E", "E", "E", "E", "F", "F", "F", "F", "F", "F", "F",
"F", "F", "F", "F", "F", "F", "F", "F", "F", "F", "G", "G", "G",
"G", "G", "G", "G", "G", "G", "G", "G", "G", "G", "G", "G", "G",
"G", "G", "H", "H", "H", "H", "H", "H", "H", "H", "H", "H", "H",
"H", "H", "H"), hour_ending = c(9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24), baseline = c(1.9077010172899,
2.12655999407884, 2.41197416985174, 2.74162673465276, 3.02372981823073,
3.33089700968182, 3.57394723410791, 3.15735222677014, 3.37064153193956,
3.46202303231075, 3.2988268978525, 3.19380273795301, 3.39494847100847,
3.16423855031123, 2.87590770187347, 2.62242044755453, 1.91837969817177,
2.09605587597684, 2.35400325616559, 2.69368678708331, 2.95211113587406,
3.27717322458092, 3.52177416324967, 3.10825406915911, 3.30992929450657,
3.34630856600525, 3.24255670023855, 3.13894842902663, 3.38353563402117,
3.16377736634442, 2.90389899178434, 2.58154912964004, 1.75202643782428,
1.95987962050445, 2.25717577193271, 2.59545475336207, 2.89186581538241,
3.18750480835101, 3.39609229031208, 3.08689595841167, 3.27283764354886,
3.35569821773519, 3.22664274768324, 3.06136265180325, 3.32439657273435,
3.13113242596454, 2.86702712497353, 2.55973838647848, 1.75109886182889,
1.94067969528731, 2.21892615109579, 2.5357375096388, 2.85580015808717,
3.16838503064795, 3.36737713160428, 3.01073017248253, 3.20380008801146,
3.26592992821696, 3.15218179832372, 2.98931304543278, 3.26860865393324,
3.09314311622858, 2.81770320200115, 2.51619056244461, 1.57306451648199,
1.7696873344036, 2.02487555543073, 2.30853526084836, 2.57574304849849,
2.83580654878125, 3.04490645265477, 2.85697900314717, 2.98071356731528,
3.02137729426674, 2.9368021490555, 2.76006912238545, 2.84629853167221,
2.6574544153176, 2.43116080779831, 2.19829301763476, 1.58537647490725,
1.76528344218373, 2.03646190364937, 2.33758795942106, 2.62238206256903,
2.86905933372095, 3.07361064877158, 2.8195083174373, 2.93217255361853,
2.98756609399138, 2.88778793775513, 2.7356017384249, 2.86767530092669,
2.69537094784409, 2.45836024615866, 2.21894264887326, 1.62245774927177,
1.82860802815701, 2.07450744510814, 2.34192587241523, 2.62803024490283,
2.91665747411445, 3.13200560169809, 2.88707311113673, 3.03644647227885,
3.08254098145638, 2.9531395609934, 2.81382526166363, 2.90802138670738,
2.76746258746592, 2.50629159744597, 2.2731739841822, 1.59609295943048,
1.79453326340054, 2.0363530676287, 2.31854313612052, 2.60925295344696,
2.88800151673408, 3.11099128741761, 2.84878965949279, 2.98275723405751,
3.03282006535505, 2.93744358114238, 2.74668563536776, 2.87923567296551,
2.69574807527118, 2.45871301999625, 2.22632476442406), actual = c(1.8904080196975,
2.12062258177981, 2.40065072106929, 2.74594090749209, 3.04580372845586,
3.34841013014421, 3.60839254308829, 3.19027435807246, 3.43037284558565,
3.51726697150897, 2.14815335912768, 2.64856841364756, 3.92739711572283,
3.39669011607457, 3.01470981357721, 2.69987337319733, 1.91719711853307,
2.10992796332678, 2.3850884086444, 2.72041584806811, 2.99648002619515,
3.31674197773412, 3.57856254092993, 3.16398821218075, 3.34720366732155,
2.51604780615586, 2.8949115913556, 2.84865094957433, 3.88275703994761,
3.42126719056974, 3.04166339227243, 2.70566142763589, 1.74723597867678,
1.96971125137967, 2.26705156481774, 2.61576501253214, 2.90683435389552,
3.20529863045216, 3.42776313034561, 3.12242460438547, 3.29840802246858,
3.37654919425327, 1.89375336897544, 2.39456811321649, 3.91047356982817,
3.39165267309245, 2.99897419306207, 2.67030894372122, 1.74757193816885,
1.9339774078478, 2.22320927467301, 2.5438192627824, 2.87210939357907,
3.18768014268728, 3.3974066587396, 3.04831985731272, 3.23633650416171,
1.92882520808561, 2.53342449464923, 2.59724613555291, 3.88369797859691,
3.38403091557669, 2.998112960761, 2.65884542211653, 1.55533834586466,
1.76554958825636, 2.018141783029, 2.30549588256355, 3.50484783387039,
3.45882563551736, 3.43867525957752, 2.08158968850698, 2.741858216971,
2.97298961689939, 1.88632653061224, 2.24816684568564, 3.24166129609739,
2.89050841389187, 2.50857500895095, 2.23477980665951, 1.58329600597238,
1.76384845091452, 2.05471071295259, 2.35306084359836, 3.54227696901829,
3.48377006345651, 3.46728630085853, 2.09081746920493, 2.72126913027249,
1.87875326614408, 2.36983949234789, 2.42112355356476, 3.29287420679358,
2.96752892870474, 2.55674132138858, 2.25788353863382, 1.62540127840909,
1.82145596590909, 2.07686079545455, 2.35802201704545, 2.63303267045455,
2.94107954545455, 3.14693181818182, 2.90647017045455, 3.05628196022727,
3.10622869318182, 2.20209872159091, 2.02112926136364, 3.33937855113636,
2.991015625, 2.60694957386364, 2.30830610795455, 1.58597605224964,
1.79940856313498, 2.03201378809869, 2.32591436865022, 2.61089985486212,
2.89880624092888, 3.13890420899855, 2.86659288824383, 2.99750362844702,
2.44048984034833, 2.24725326560232, 2.20473149492017, 3.35098330914369,
3.00576560232221, 2.635, 2.322793904209), pre_start_time = c(999,
999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999,
999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999,
999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999,
999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999,
999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 12, 12,
12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12,
12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 12, 999,
999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999,
999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999, 999,
999, 999, 999, 999, 999), pre_end_time = c(-999, -999, -999,
-999, -999, -999, -999, -999, -999, -999, -999, -999, -999, -999,
-999, -999, -999, -999, -999, -999, -999, -999, -999, -999, -999,
-999, -999, -999, -999, -999, -999, -999, -999, -999, -999, -999,
-999, -999, -999, -999, -999, -999, -999, -999, -999, -999, -999,
-999, -999, -999, -999, -999, -999, -999, -999, -999, -999, -999,
-999, -999, -999, -999, -999, -999, 15, 15, 15, 15, 15, 15, 15,
15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15, 15,
15, 15, 15, 15, 15, 15, 15, 15, 15, -999, -999, -999, -999, -999,
-999, -999, -999, -999, -999, -999, -999, -999, -999, -999, -999,
-999, -999, -999, -999, -999, -999, -999, -999, -999, -999, -999,
-999, -999, -999, -999, -999), start_time = c(18, 18, 18, 18,
18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 17, 17, 17, 17,
17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 18, 18, 18, 18,
18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 17, 17, 17, 17,
17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 18, 18, 18, 18,
18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 17, 17, 17, 17,
17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 18, 18, 18, 18,
18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 18, 17, 17, 17, 17,
17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17, 17), end_time = c(20,
20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20,
20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20, 20)), class = c("tbl_df",
"tbl", "data.frame"), row.names = c(NA, -128L))
最佳答案
基本上，在 plotly 中，可以通过 legendgroup 参数对图例进行分组。不幸的是，我不知道有什么方法可以通过 ggplotly 实现这一点。
但是，适应this回答你的情况，实现你想要的结果的一个选择是像这样操作 plotly 对象。:
注意:我在代码中添加了一些更多的解释性注释作为注释。
library(plotly)
library(dplyr)
plot <-
sample_data %>%
ggplot() +
facet_wrap(~Group) +
geom_rect(aes(
xmin = start_time,
xmax = end_time,
fill = "Event"
),
ymin = -9999,
ymax = 9999,
color = NA,
alpha = .5,
data = times
) +
geom_rect(aes(
xmin = pre_start_time,
xmax = pre_end_time,
fill = "Pre"
),
ymin = -9999,
ymax = 9999,
color = NA,
alpha = .5,
data = times
) +
scale_fill_manual(values = c("green", "blue")) +
geom_line(aes(
x = hour_ending,
y = actual,
color = "Actual"
),
linetype = 1
) +
geom_line(aes(
x = hour_ending,
y = baseline,
color = "Predicted"
),
linetype = 2
) +
scale_color_manual(values = c("grey", "orange")) +
labs(y = "Average", x = "Hour Ending") +
theme(
text = element_text(size = 14),
strip.background = element_rect(fill = "white"),
panel.grid.minor = element_blank(),
panel.grid.major.x = element_blank()
)
gp <- ggplotly(p = plot)
for (i in seq_along(gp$x$data)) {
# Is the layer the first entry of the group?
is_first <- grepl("^\\(.*?,1\\)", gp$x$data[[i]]$name)
# Extract the group identifier and assign it to the name and legendgroup arguments
gp$x$data[[i]]$name <- gsub("^\\((.*?),\\d+\\)", "\\1", gp$x$data[[i]]$name)
gp$x$data[[i]]$legendgroup <- gp$x$data[[i]]$name
# Show the legend only for the first layer of the group
if (!is_first) gp$x$data[[i]]$showlegend <- FALSE
}
gp
关于r - 使用多个 geom 时如何消除 ggplotly 重复的图例条目，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/69034684/
25
4
0
我在网上搜索但没有找到任何合适的文章解释如何使用 javascript 使用 WCF 服务，尤其是 WebScriptEndpoint。 任何人都可以对此给出任何指导吗？ 谢谢 最佳答案 这是一篇关于
我正在编写一个将运行 Linux 命令的 C 程序，例如: cat/etc/passwd | grep 列表 |剪切-c 1-5 我没有任何结果 *这里 parent 等待第一个 child (chi
所以我正在尝试处理文件上传，然后将该文件作为二进制文件存储到数据库中。在我存储它之后，我尝试在给定的 URL 上提供文件。我似乎找不到适合这里的方法。我需要使用数据库，因为我使用 Google 应用引
我正在尝试制作一个宏，将下面的公式添加到单元格中，然后将其拖到整个列中并在 H 列中复制相同的公式 我想在 F 和 H 列中输入公式的数据 Range("F1").formula = "=IF(ISE
问题类似于this one ，但我想使用 OperatorPrecedenceParser 解析带有函数应用程序的表达式在 FParsec . 这是我的 AST: type Expression =
我想通过使用 sequelize 和 node.js 将这个查询更改为代码取决于在哪里 select COUNT(gender) as genderCount from customers where
我正在使用GNU bash，版本5.0.3(1)-发行版(x86_64-pc-linux-gnu)，我想知道为什么简单的赋值语句会出现语法错误: #/bin/bash var1=/tmp
这里，为什么我的代码在 IE 中不起作用。我的代码适用于所有浏览器。没有问题。但是当我在 IE 上运行我的项目时，它发现错误。 而且我的 jquery 类和 insertadjacentHTMl 也不
我正在尝试更改标签的innerHTML。我无权访问该表单，因此无法编辑 HTML。标签具有的唯一标识符是“for”属性。 这是输入和标签的结构:
我有一个页面，我可以在其中返回用户帖子，可以使用一些 jquery 代码对这些帖子进行即时评论，在发布新评论后，我在帖子下插入新评论以及删除 按钮。问题是 Delete 按钮在新插入的元素上不起作用，
我有一个大约有 20 列的“管道分隔”文件。我只想使用 sha1sum 散列第一列，它是一个数字，如帐号，并按原样返回其余列。 使用 awk 或 sed 执行此操作的最佳方法是什么？ Accounti
我需要将以下内容插入到我的表中...我的用户表有五列 id、用户名、密码、名称、条目。 (我还没有提交任何东西到条目中，我稍后会使用 php 来做)但由于某种原因我不断收到这个错误:#1054 - U
所以我试图有一个输入字段，我可以在其中输入任何字符，但然后将输入的值小写，删除任何非字母数字字符，留下“。”而不是空格。 例如，如果我输入: 地球的 70% 是水，-!*#$^^ & 30% 土地 输
我正在尝试做一些我认为非常简单的事情，但出于某种原因我没有得到想要的结果？我是 javascript 的新手，但对 java 有经验，所以我相信我没有使用某种正确的规则。 这是一个获取输入值、检查选择
我想使用 angularjs 从 mysql 数据库加载数据。 这就是应用程序的工作原理；用户登录，他们的用户名存储在 cookie 中。该用户名显示在主页上 我想获取这个值并通过 angularjs
我正在使用 autoLayout，我想在 UITableViewCell 上放置一个 UIlabel，它应该始终位于单元格的右侧和右侧的中心。 这就是我想要实现的目标 所以在这里你可以看到我正在谈论的
我需要与 MySql 等效的 elasticsearch 查询。我的 sql 查询: SELECT DISTINCT t.product_id AS id FROM tbl_sup_price t
我正在实现代码以使用 JSON。 func setup() { if let flickrURL = NSURL(string: "https://api.flickr.com/
我尝试使用for循环声明变量，然后测试cols和rols是否相同。如果是，它将运行递归函数。但是，我在 javascript 中执行 do 时遇到问题。有人可以帮忙吗？ 现在，在比较 col.1 和
我举了一个我正在处理的问题的简短示例。 HTML代码: 1 2 3 CSS 代码: .BB a:hover{ color: #000; } .BB > li:after {
我是一名优秀的程序员,十分优秀！