标签: ggplotly
禁用特定绘图层（geom）的悬停信息
library(ggplot2)
library(plotly)
gg <- ggplot(mtcars, aes(factor(vs), drat)) +
geom_violin() +
geom_jitter()
ggplotly(gg)
在示例代码中，我们用于ggplot绘制小提琴和抖动层。Plotly显示两层的信息（即，当悬停在抖动点上时，它将显示特定的点信息，当悬停在小提琴图上时也会发生相同的情况）。但是，我只想plotly显示信息geom_jitter。
问题：如何禁用特定层的悬停信息？
推荐指数
解决办法
查看次数
Shiny 更新单击的点以突出显示它
这是提取点击事件的工作示例。我想问你是否有办法通过增加大小或突出显示等来更新点击点？
library(shiny)
library(plotly)
ui <- fluidPage(
plotlyOutput("plot"),
verbatimTextOutput("click")
)
server <- function(input, output, session) {
nms <- row.names(mtcars)
output$plot <- renderPlotly({
p <- ggplot(mtcars, aes(x = mpg, y = wt, col = as.factor(cyl), key = nms)) +
geom_point()
ggplotly(p)
})
output$click <- renderPrint({
d <- event_data("plotly_click")
if (is.null(d)) "Click events appear here (double-click to clear)"
else cat("Selected point associated with Car: ", d$key)
})
}
shinyApp(ui, server)
我已经搜索了 SO 和其他合适的来源以找到以下问题的解决方案，但找不到。
更新：
- 这个解决方案更适合这个玩具情节。但是，我的原始用例包含 50 多个感兴趣的变量级别，并且很有可能已经存在洋红色或任何其他颜色。此外，改变颜色需要相当长的时间。
- 有没有办法增加点击点的大小以将其与附近的数百个点区分开来？
已在此处询问有关更改单击点形状的相关问题。
推荐指数
解决办法
查看次数
在ggplotly散点图中添加自定义数据标签
我想Species在光标悬停在数据点上时显示每个数据点，而不是x和y值。我使用iris数据集。另外，我希望能够单击一个数据点以使标签保持不变，并且在我选择图中的新位置时不会消失。（如果可能的话 ）。基本是标签。持久性问题是一个加号。这是我的应用程序：
## Note: extrafont is a bit finnicky on Windows,
## so be sure to execute the code in the order
## provided, or else ggplot won't find the font
# Use this to acquire additional fonts not found in R
install.packages("extrafont");library(extrafont)
# Warning: if not specified in font_import, it will
# take a bit of time to get all fonts
font_import(pattern = "calibri")
loadfonts(device = "win")
#ui.r
library(shiny)
library(ggplot2)
library(plotly)
library(extrafont)
library(ggrepel)
fluidPage(
# …推荐指数
解决办法
查看次数
ggplotly：悬停时重命名工具提示
我有一个如上图所示的图表。可重用代码如下。
plotly::ggplotly(ggplot(dplyr::as_tibble(rnorm(1000)), aes(value)) + stat_ecdf(geom = 'line'))
我想在悬停时重命名和格式化工具提示。例如，x 轴或“价值”（在图表中）可以是“单位价格？” 而 y 轴是累积分布。
因此，当我将鼠标悬停在线上时，我希望能够看到如下所示的内容
累积分布：78.2%
单价：?0.81
谢谢！
推荐指数
解决办法
查看次数
使用 ggplotly() 时反转图例顺序
我想反转水平条形图图例的顺序。添加guides(fill = guide_legend(reverse = TRUE))到它时ggplot效果很好（参见第二个图）。但是，应用图例后，ggplotly()图例又恢复为默认顺序。
如何在不plotly改变条形顺序的情况下反转图例的顺序？
library(ggplot2)
library(dplyr)
data(mtcars)
p1 <- mtcars %>%
count(cyl, am) %>%
mutate(cyl = factor(cyl), am = factor(am)) %>%
ggplot(aes(cyl, n, fill = am)) +
geom_col(position = "dodge") +
coord_flip()
p1
p2 <- p1 + guides(fill = guide_legend(reverse = TRUE))
p2
plotly::ggplotly(p2)
推荐指数
解决办法
查看次数
Plotly：如何只显示点击的行？
默认情况下，Plotly 在图例部分中单击其标签时隐藏该线。是否有任何其他键的组合shift/ctrl/alt/可以仅显示选定的行并隐藏所有其他行？
推荐指数
解决办法
查看次数
Shiny：如何更改点击点的形状和/或大小？
我想更改下图中单击点的形状和大小。如何实现？对于这个玩具图，我将点数从原来的 100k 减少到 2k。因此，预期的解决方案应该是高度可扩展的，并且不偏离原始图，即点击点更新之前和之后的所有颜色应该相同。
library(shiny)
library(plotly)
df <- data.frame(X=runif(2000,0,2), Y=runif(2000,0,20),
Type=c(rep(c('Type1','Type2'),600),
rep(c('Type3','Type4'),400)),
Val=sample(LETTERS,2000,replace=TRUE))
# table(df$Type, df$Val)
ui <- fluidPage(
title = 'Select experiment',
sidebarLayout(
sidebarPanel(
checkboxGroupInput("SelType", "Select Types to plot:",
choices = unique(df$Type),
selected = NA)
),
mainPanel(
plotlyOutput("plot", width = "400px"),
verbatimTextOutput("click")
)
)
)
server <- function(input, output, session) {
output$plot <- renderPlotly({
if(length(input$SelType) != 0){
df <- subset(df, Type %in% input$SelType)
p <- ggplot(df, aes(X, Y, col = as.factor(Val))) +
geom_point()
}else{
p <- ggplot(df, aes(X, Y, …推荐指数
解决办法
查看次数
ggplot 版本的点图
好奇如何使用 ggplot 或 plotly 库函数绘制这个点图。还要在各个点上标记 mpg 值。
# Dotplot: Grouped Sorted and Colored
# Sort by mpg, group and color by cylinder
x <- mtcars[order(mtcars$mpg),] # sort by mpg
x$cyl <- factor(x$cyl) # it must be a factor
x$color[x$cyl==4] <- "red"
x$color[x$cyl==6] <- "blue"
x$color[x$cyl==8] <- "darkgreen"
dotchart(x$mpg,labels=row.names(x),cex=.7,groups= x$cyl,
main="Gas Milage for Car Models\ngrouped by cylinder",
xlab="Miles Per Gallon", gcolor="black", color=x$color)
推荐指数
解决办法
查看次数
如何在 ggplotly 动画中添加注释？
我正在为 r 中的作业创建动画绘图图，其中我将多个模型与不同数量的观察结果进行比较。我想添加注释，显示当前模型的 RMSE 是多少 - 这意味着我希望文本与滑块一起变化。有什么简单的方法可以做到这一点吗？
这是我存储在 GitHub 上的数据集。已经创建了 RMSE 变量：data
基本 ggplot 图形如下：
library(tidyverse)
library(plotly)
p <- ggplot(values_predictions, aes(x = x)) +
geom_line(aes(y = preds_BLR, frame = n, colour = "BLR")) +
geom_line(aes(y = preds_RLS, frame = n, colour = "RLS")) +
geom_point(aes(x = x, y = target, frame = n, colour = "target"), alpha = 0.3) +
geom_line(aes(x = x, y = sin(2 * pi * x), colour = "sin(2*pi*x)"), alpha = 0.3) +
ggtitle("Comparison of …推荐指数
解决办法
查看次数
grid.arrange 与 ggplotly
我想知道是否有一种解决方法来获得我们使用 grid.arrange 使用 ggplotly 获得的图的布局。
grid.draw 生成的对象显然不是 ggplot 对象。因此，想知道将以下图传递给 ggplotly 的任何解决方法。
library(ggplot2)
library(gridExtra)
p1 = qplot(1:20,1:20)
p2 = qplot(1:20, 20:1)
grid.arrange(p1,p2, ncol=2)
推荐指数
解决办法
查看次数
如何将 ggplotly 从 R闪亮应用程序导出为 html 文件
我的闪亮应用程序中有一个名为 p2 的 ggplotly 对象。我希望它能够工作，如果用户在应用程序 UI 中按下 downloadButton，它将把 ggplotly 图下载为 html 文件。但该功能不起作用：
output$Export_Graph <- downloadHandler(
filename = function() {
file <- "Graph"
},
content = function(file) {
write(p2, file)
}
有任何想法吗？
推荐指数
解决办法
查看次数
R 中的非线性回归，nls：奇异梯度
我想将我的数据拟合到已使用 Matlab 优化的特定函数中。
我收到以下错误：“警告消息：计算失败stat_smooth()：奇异梯度”
请帮忙！这是我的 R 代码：
tibble
x y SEM
1 1 0.0342 0.00532
2 3 0.0502 0.00639
3 5 0.0700 0.0118
4 10 0.123 0.0269
5 20 0.154 0.0125
6 30 0.203 0.0190
7 40 0.257 0.0255
8 50 0.287 0.0266
9 60 0.345 0.0347
10 90 0.442 0.0398
11 120 0.569 0.0570
12 180 0.726 0.0406
13 240 0.824 0.0150
14 360 0.868 0.00821
15 1440 0.890 0.0246
tibble %>%
ggplot(aes(x, y)) +
geom_point()+
geom_errorbar(aes(ymin=y-SEM, …推荐指数
解决办法
查看次数