设置 ggplot() 中显示的值的小数位数
Set the number of decimals in values dipslayed in gpplotly()
我有以下数据框：
dt2<-structure(list(year2 = c(1950, 1955, 1960, 1965, 1970, 1975,
1980, 1985, 1990, 1995, 2000, 2005, 2010, 2015), pta_count = c(2,
4, 10, 14, 24, 18, 13, 19, 84, 100, 105, 96, 47, 15), scope_ntis_mean = c(3.5,
9.5, 5, 9.57142857142857, 4.54166666666667, 11.7222222222222,
6.23076923076923, 7.05263157894737, 17.1071428571429, 15.16,
15.2761904761905, 17.6354166666667, 22.9574468085106, 26.8666666666667
), scope_ntis_sd = c(0.707106781186548, 11.7046999107196, 6.25388767976457,
8.72409824049971, 4.56812364359683, 9.2278705436976, 5.11784209333462,
10.7779284971676, 13.2864799994027, 12.9643801053175, 12.1295056958191,
12.7964796077233, 12.4375963125981, 14.5791762782532), scope_ntis_se = c(0.822426813475736,
9.62625905026287, 3.25294959458435, 3.83516264302846, 1.53376734188638,
3.57760589505535, 2.33476117415722, 4.06710846230115, 2.38450123589789,
2.13245076374089, 1.94704374916827, 2.14823678655809, 2.98410970181292,
6.19176713030084), scope_ntis_cil = c(2.67757318652426, -0.12625905026287,
1.74705040541565, 5.73626592840011, 3.00789932478029, 8.14461632716687,
3.89600805661201, 2.98552311664622, 14.722641621245, 13.0275492362591,
13.3291467270222, 15.4871798801086, 19.9733371066977, 20.6748995363658
), scope_ntis_ciu = c(4.32242681347574, 19.1262590502629, 8.25294959458435,
13.406591214457, 6.07543400855305, 15.2998281172776, 8.56553040492645,
11.1197400412485, 19.4916440930407, 17.2924507637409, 17.2232342253587,
19.7836534532248, 25.9415565103236, 33.0584337969675)), row.names = c(NA,
-14L), class = c("tbl_df", "tbl", "data.frame"))
并且我使用 ggplotly() 创建绘图，其中当您将鼠标悬停在绘图上时，我希望每个 y 数字都只有 2 位小数。我使用 format(round(x, 2), nsmall = 2) 但我得到：
Discrete value supplied to continuous scale
p<-ggplotly(ggplot(dt2, aes(x=year2)) +
geom_col(aes(y=pta_count/(max(dt2$pta_count)/max(dt2$scope_ntis_ciu))
),
fill="darkolivegreen",alpha=0.3,width=3)+
geom_point(aes(y=scope_ntis_mean
))+
geom_segment(aes(x=year2,y=scope_ntis_cil,xend=year2,yend=scope_ntis_ciu
),
arrow=arrow(length=unit(0.1,"cm"),
ends='both'),
lineend="square",size=0.3) +
scale_x_continuous(n.breaks=14)+
# Custom the Y scales:
scale_y_continuous(
# Features of the first axis
name = "NTI Scope\n(scope measures the sum of all NTIs mentioned in a PTA,\ndot indicated mean scope per 5-year interval,\n arrows signal confidence intervals)",
# Add a second axis and specify its features
sec.axis = sec_axis( ~ . * max(dt2$pta_count)/max(dt2$scope_ntis_ciu), name="PTA Count\n(green columns indicate number of PTAs\n signed in given 5-year intervall)")
)+
labs(x='')+
theme_bw()+theme(axis.title = element_text(size = 8),
axis.title.y = element_text(margin = margin(t = 0, r = 20, b = 0, l = 0)),
text=element_text( family="Montserrat") ))%>%
add_trace(inherit = F, x = ~year2,
y = ~(pta_count/(max(pta_count)/ max(scope_ntis_ciu))
) * (max(dt2$pta_count)/max(dt2$scope_ntis_ciu)),
data = dt2,
yaxis = "y2",
hoverinfo="skip",
alpha = 0, # make it invisible
type = "bar") %>%
layout(margin = list(l = 85, r = 85),
yaxis2 = list(
ticklen = 3.7, # to match other axes
tickcolor = "rgba(51, 51, 51, 1)", # to match other axes
tickfont = list(size = 11.7, # to match other axes
color = "rgba(77, 77, 77, 1)"), # to match the others
titlefont = list(size = 11.7), # to match other axes
side = "right",
overlaying = "y",
showgrid = F, # to match ggplot version
dtick = 25, # between ticks
title = "PTA Count\n(green columns indicate number of PTAs\n signed in given 5-year interval)"))
p
如果您想在绘制 图形之前对数据进行舍入，请在制作ggplot 对象之前对数据框中的数据进行舍入，正如@benson23 建议的那样。
如@Bas 建议的那样，您可以修改 hovertemplate。您将需要为每个跟踪执行此操作（每个 geom 一个）。它不必像他写的那样完全，你可以为p$x$data[[2]]写"Year: %{x}<br>Count of Issues: %{y}"，这是geom_point层（或当它是 plotly).
时跟踪
无论哪种方式，我都受益于知道您想要自定义标签。如果您要舍入标签，尤其是自定义标签，请在创建标签时将其舍入。
我已经为每个 geom_ 添加了 text。 （我使用 round，但 format 也可以在那里工作。）
I also added tooltip = "text" to the ggplotly() call (easy to forget that part!).
(p <- ggplotly(
ggplot(dt2, aes(x = year2)) +
geom_col(aes(y = pta_count/(max(pta_count)/max(scope_ntis_ciu)),
text = paste0("Year: ", year2,
"\nCount of Issues: ", # rounded
round(pta_count/(max(pta_count)/max(scope_ntis_ciu)), 2))
),
fill = "darkolivegreen", alpha = 0.3, width = 3) +
geom_point(aes(y = scope_ntis_mean,
text = paste0("Year: ", year2,
"\nCount of Issues: ", # rounded
round(scope_ntis_mean, 2))
)) +
geom_segment(aes(x = year2, y = scope_ntis_cil,
xend = year2, yend = scope_ntis_ciu,
text = paste0("Year: ", year2,
"\nCount of Issues: ", # rounded
round(scope_ntis_cil, 2),
"\nThe other issues?: ", # rounded
round(scope_ntis_ciu, 2))
),
arrow = arrow(length = unit(0.1, "cm"), ends = 'both'),
lineend = "square", size = 0.3) +
scale_x_continuous(n.breaks = 14) +
# Custom the Y scales:
scale_y_continuous(
# Features of the first axis
name = "NTI Scope\n(scope measures the sum of all NTIs mentioned in a PTA, \ndot indicated mean scope per 5-year interval, \n arrows signal confidence intervals)",
# Add a second axis and specify its features
sec.axis = sec_axis(
~ . * max(dt2$pta_count)/max(dt2$scope_ntis_ciu),
name = "PTA Count\n(green columns indicate number of PTAs\n signed in given 5-year intervall)")) +
labs(x = '') +
theme_bw() +
theme(axis.title = element_text(size = 8),
axis.title.y = element_text(margin = margin(t = 0, r = 20, b = 0, l = 0)),
text = element_text( family = "Montserrat")),
tooltip = "text") %>% # <<<----- tooltip = "text"
add_trace(inherit = F, x = ~year2,
y = ~(pta_count/(max(pta_count)/ max(scope_ntis_ciu))
) * (max(dt2$pta_count)/max(dt2$scope_ntis_ciu)),
data = dt2,
yaxis = "y2",
hoverinfo = "skip",
alpha = 0, # make it invisible
type = "bar") %>%
layout(margin = list(l = 85, r = 85),
yaxis2 = list(
ticklen = 3.7, # to match other axes
tickcolor = "rgba(51, 51, 51, 1)", # to match other axes
tickfont = list(size = 11.7, # to match other axes
color = "rgba(77, 77, 77, 1)"), # to match the others
titlefont = list(size = 11.7), # to match other axes
side = "right",
overlaying = "y",
showgrid = F, # to match ggplot version
dtick = 25, # between ticks
title = "PTA Count\n(green columns indicate number of PTAs\n signed in given 5-year interval)")))
我有以下数据框：
dt2<-structure(list(year2 = c(1950, 1955, 1960, 1965, 1970, 1975,
1980, 1985, 1990, 1995, 2000, 2005, 2010, 2015), pta_count = c(2,
4, 10, 14, 24, 18, 13, 19, 84, 100, 105, 96, 47, 15), scope_ntis_mean = c(3.5,
9.5, 5, 9.57142857142857, 4.54166666666667, 11.7222222222222,
6.23076923076923, 7.05263157894737, 17.1071428571429, 15.16,
15.2761904761905, 17.6354166666667, 22.9574468085106, 26.8666666666667
), scope_ntis_sd = c(0.707106781186548, 11.7046999107196, 6.25388767976457,
8.72409824049971, 4.56812364359683, 9.2278705436976, 5.11784209333462,
10.7779284971676, 13.2864799994027, 12.9643801053175, 12.1295056958191,
12.7964796077233, 12.4375963125981, 14.5791762782532), scope_ntis_se = c(0.822426813475736,
9.62625905026287, 3.25294959458435, 3.83516264302846, 1.53376734188638,
3.57760589505535, 2.33476117415722, 4.06710846230115, 2.38450123589789,
2.13245076374089, 1.94704374916827, 2.14823678655809, 2.98410970181292,
6.19176713030084), scope_ntis_cil = c(2.67757318652426, -0.12625905026287,
1.74705040541565, 5.73626592840011, 3.00789932478029, 8.14461632716687,
3.89600805661201, 2.98552311664622, 14.722641621245, 13.0275492362591,
13.3291467270222, 15.4871798801086, 19.9733371066977, 20.6748995363658
), scope_ntis_ciu = c(4.32242681347574, 19.1262590502629, 8.25294959458435,
13.406591214457, 6.07543400855305, 15.2998281172776, 8.56553040492645,
11.1197400412485, 19.4916440930407, 17.2924507637409, 17.2232342253587,
19.7836534532248, 25.9415565103236, 33.0584337969675)), row.names = c(NA,
-14L), class = c("tbl_df", "tbl", "data.frame"))
并且我使用 ggplotly() 创建绘图，其中当您将鼠标悬停在绘图上时，我希望每个 y 数字都只有 2 位小数。我使用 format(round(x, 2), nsmall = 2) 但我得到：
Discrete value supplied to continuous scale
p<-ggplotly(ggplot(dt2, aes(x=year2)) +
geom_col(aes(y=pta_count/(max(dt2$pta_count)/max(dt2$scope_ntis_ciu))
),
fill="darkolivegreen",alpha=0.3,width=3)+
geom_point(aes(y=scope_ntis_mean
))+
geom_segment(aes(x=year2,y=scope_ntis_cil,xend=year2,yend=scope_ntis_ciu
),
arrow=arrow(length=unit(0.1,"cm"),
ends='both'),
lineend="square",size=0.3) +
scale_x_continuous(n.breaks=14)+
# Custom the Y scales:
scale_y_continuous(
# Features of the first axis
name = "NTI Scope\n(scope measures the sum of all NTIs mentioned in a PTA,\ndot indicated mean scope per 5-year interval,\n arrows signal confidence intervals)",
# Add a second axis and specify its features
sec.axis = sec_axis( ~ . * max(dt2$pta_count)/max(dt2$scope_ntis_ciu), name="PTA Count\n(green columns indicate number of PTAs\n signed in given 5-year intervall)")
)+
labs(x='')+
theme_bw()+theme(axis.title = element_text(size = 8),
axis.title.y = element_text(margin = margin(t = 0, r = 20, b = 0, l = 0)),
text=element_text( family="Montserrat") ))%>%
add_trace(inherit = F, x = ~year2,
y = ~(pta_count/(max(pta_count)/ max(scope_ntis_ciu))
) * (max(dt2$pta_count)/max(dt2$scope_ntis_ciu)),
data = dt2,
yaxis = "y2",
hoverinfo="skip",
alpha = 0, # make it invisible
type = "bar") %>%
layout(margin = list(l = 85, r = 85),
yaxis2 = list(
ticklen = 3.7, # to match other axes
tickcolor = "rgba(51, 51, 51, 1)", # to match other axes
tickfont = list(size = 11.7, # to match other axes
color = "rgba(77, 77, 77, 1)"), # to match the others
titlefont = list(size = 11.7), # to match other axes
side = "right",
overlaying = "y",
showgrid = F, # to match ggplot version
dtick = 25, # between ticks
title = "PTA Count\n(green columns indicate number of PTAs\n signed in given 5-year interval)"))
p
如果您想在绘制 图形之前对数据进行舍入，请在制作ggplot 对象之前对数据框中的数据进行舍入，正如@benson23 建议的那样。
如@Bas 建议的那样，您可以修改 hovertemplate。您将需要为每个跟踪执行此操作（每个 geom 一个）。它不必像他写的那样完全，你可以为p$x$data[[2]]写"Year: %{x}<br>Count of Issues: %{y}"，这是geom_point层（或当它是 plotly).
无论哪种方式，我都受益于知道您想要自定义标签。如果您要舍入标签，尤其是自定义标签，请在创建标签时将其舍入。
我已经为每个 geom_ 添加了 text。 （我使用 round，但 format 也可以在那里工作。）
I also added
tooltip = "text"to theggplotly()call (easy to forget that part!).
(p <- ggplotly(
ggplot(dt2, aes(x = year2)) +
geom_col(aes(y = pta_count/(max(pta_count)/max(scope_ntis_ciu)),
text = paste0("Year: ", year2,
"\nCount of Issues: ", # rounded
round(pta_count/(max(pta_count)/max(scope_ntis_ciu)), 2))
),
fill = "darkolivegreen", alpha = 0.3, width = 3) +
geom_point(aes(y = scope_ntis_mean,
text = paste0("Year: ", year2,
"\nCount of Issues: ", # rounded
round(scope_ntis_mean, 2))
)) +
geom_segment(aes(x = year2, y = scope_ntis_cil,
xend = year2, yend = scope_ntis_ciu,
text = paste0("Year: ", year2,
"\nCount of Issues: ", # rounded
round(scope_ntis_cil, 2),
"\nThe other issues?: ", # rounded
round(scope_ntis_ciu, 2))
),
arrow = arrow(length = unit(0.1, "cm"), ends = 'both'),
lineend = "square", size = 0.3) +
scale_x_continuous(n.breaks = 14) +
# Custom the Y scales:
scale_y_continuous(
# Features of the first axis
name = "NTI Scope\n(scope measures the sum of all NTIs mentioned in a PTA, \ndot indicated mean scope per 5-year interval, \n arrows signal confidence intervals)",
# Add a second axis and specify its features
sec.axis = sec_axis(
~ . * max(dt2$pta_count)/max(dt2$scope_ntis_ciu),
name = "PTA Count\n(green columns indicate number of PTAs\n signed in given 5-year intervall)")) +
labs(x = '') +
theme_bw() +
theme(axis.title = element_text(size = 8),
axis.title.y = element_text(margin = margin(t = 0, r = 20, b = 0, l = 0)),
text = element_text( family = "Montserrat")),
tooltip = "text") %>% # <<<----- tooltip = "text"
add_trace(inherit = F, x = ~year2,
y = ~(pta_count/(max(pta_count)/ max(scope_ntis_ciu))
) * (max(dt2$pta_count)/max(dt2$scope_ntis_ciu)),
data = dt2,
yaxis = "y2",
hoverinfo = "skip",
alpha = 0, # make it invisible
type = "bar") %>%
layout(margin = list(l = 85, r = 85),
yaxis2 = list(
ticklen = 3.7, # to match other axes
tickcolor = "rgba(51, 51, 51, 1)", # to match other axes
tickfont = list(size = 11.7, # to match other axes
color = "rgba(77, 77, 77, 1)"), # to match the others
titlefont = list(size = 11.7), # to match other axes
side = "right",
overlaying = "y",
showgrid = F, # to match ggplot version
dtick = 25, # between ticks
title = "PTA Count\n(green columns indicate number of PTAs\n signed in given 5-year interval)")))