标签: r-plotly

我有一个简单的数据框:

seq <- 1:10
name <- c(paste0("company",1:10))
value <- c(250,125,50,40,40,30,20,20,10,10)
d <- data.frame(seq,name,value)

我想以这种方式绘制它:

require(ggplot2)
ggplot(data = d,aes(x=seq,y=value))+geom_line() + geom_point()

现在我想使用情节,主要是为了能够,当鼠标悬停在某一点上时,获取除价值之外的其他信息,例如公司名称.我试试这个:

require(plotly)
ggplotly()

这给我一个工具提示,但只有seq和值.我尝试了选项tooltip =但它指定你可以使用美学中唯一的变量描述,我不会在我的使用中使用该名称.

有解决方案吗 我看到我不是第一个遇到这个问题的人,但我还没有找到与ggplotly合作的答案.

我有一个功能r(x),我想围绕x轴旋转,以获得我想要使用(着色)添加到现有绘图的旋转实体.plot_lyadd_surfacex

这是一个例子:

library(dplyr)
library(plotly)

# radius depends on x
r <- function(x) x^2

# interval of interest
int <- c(1, 3)

# number of points along the x-axis
nx <- 20

# number of points along the rotation
ntheta <- 36

# set x points and get corresponding radii
coords <- data_frame(x = seq(int[1], int[2], length.out = nx), r = r(x))

# for each x: rotate r to get y and …

我正在使用ggplotly来显示交互式时间序列图.x轴采用日期格式,但悬浮工具提示正在将日期格式转换为数字(附加截图).关于如何在工具提示中将日期显示为正确日期的任何想法？

下面是一小段代码:

 output$ggplot <- renderPlotly({

plotbycity<-df_postgres %>% group_by(city, date, bedroooms) %>%
  filter(city %in% input$checkGroup & bedroooms==input$radio) %>%
  summarise(count=n(),rent=median(rent)) %>%
  ungroup() 

plotbycity$date<-as.Date(plotbycity$date)


# Error handling
plotbycity<-plotbycity[!is.na(plotbycity$city),]
if (is.null(plotbycity)) return(NULL)

#plotbycity<-ungroup(plotbycity)
#dat <- dat[c("rent", "bedroooms", "date", "City")]
#dat <- melt(dat,id.vars=c("date", "City", "bedroooms"),na.rm=TRUE)   #

# draw the line plot using ggplot
 gg <-ggplot(plotbycity, aes(x = date, y = rent, group = city, color = city,
                             text = paste('obs: ', count))) +
  geom_line() +
  ggtitle("Monthly Rents")
#   #theme_hc(bgcolor = "darkunica") +
#   #scale_fill_hc("darkunica")

 p …

Plotly允许您将鼠标悬停在散点图上的某个点上时显示文本字段.当用户将鼠标悬停或点击时,是否可以显示与每个点相关联的图像？我大多只是使用网络界面,但我可以改为ggplot从R 推

我正在创建条形图,plotly其中y轴代表0-1内的百分比或份额.y轴显示为0.05而不是5.0%.

有没有办法显示y轴刻度标签%##？

我尝试过使用tickformat = "%"但似乎没有用.

使用plotly的subplots（）时，如何删除图例中的重复项？

这是我的MWE：

library(plotly)
library(ggplot2)
library(tidyr)

mpg %>%
  group_by(class) %>%
  do(p = plot_ly(., x = ~cyl, y = ~displ, color = ~trans, type = 'bar')) %>%
  subplot(nrows = 2, shareX = TRUE, titleX = TRUE) %>%
  layout(barmode = 'stack')

我希望利用Plotly中的强大功能,但我很难弄清楚如何将回归平面添加到三维散点图中.以下是如何开始使用3d绘图的示例,是否有人知道如何在下一步中添加并添加平面？

library(plotly)
data(iris)


iris_plot <- plot_ly(my_df, 
                x = Sepal.Length, 
                y = Sepal.Width, 
                z = Petal.Length, 
                type = "scatter3d", 
                mode = "markers")

petal_lm <- lm(Petal.Length ~ 0 + Sepal.Length + Sepal.Width, 
               data = iris)

是否可以进行格式化hoverlabel以使背景颜色透明并且可以通过标签看到绘图？

我可以通过例如将其设置为纯色，hoverlabel = list(bgcolor = '#fff')但看起来如果我尝试添加透明度，颜色字符串的该部分将被忽略。与 相同bgcolor = 'rgba(255,255,255,0.05)'，也不起作用。看起来标记有opacity设置，但悬停标签则没有。

谢谢！！

当使用R plotly软件包版本4.5.6时,我无法弄清楚如何在使用组合多个图时显示轴标签subplot.这是一个没有出现x轴标签的例子.

require(plotly)
a <- data.frame(x1=1:3,   y=30:32)
b <- data.frame(x2=11:13, y=31:33)

u <- plot_ly(a)
u <- add_lines(u, x=~x1, y=~y)
v <- plot_ly(b)
v <- add_lines(v, x=~x2, y=~y)
subplot(u, v, shareY=TRUE)

我想绘制一个带有Plotly的3D-Line Plot用于时间序列并填充每一行.我这里有一个示例代码.

library(plotly)

dens <- with(diamonds, tapply(price, INDEX = cut, density))
data <- data.frame(
  x = unlist(lapply(dens, "[[", "x")),
  y = unlist(lapply(dens, "[[", "y")),
  cut = rep(names(dens), each = length(dens[[1]]$x)))

p <- plot_ly(data, x = ~cut, y = ~x, z = ~y, type = 'scatter3d', mode = 'lines', color = ~cut)
p

用这个代码我可以产生这个图

没有填充的3d线图

我已经尝试过surfaceaxis=0,1或2,他们产生错误的填充物.

3D-Plotly错误填充

我想要的是填充x轴和线图之间的区域.

有一个示例3D图与另一个值.

作为示例3D-Plot,在曲线下填充另一个值

有人可以建议一个方法吗？先感谢您.

编辑:必须使用"plotly"包创建