1
Wie fügt man einem 3D-Plot in einem Plot einen hochgestellten Index oder einen tiefgestellten Index hinzu?Wie fügt man einem 3D-Plot in einem Plot einen hochgestellten Index oder einen tiefgestellten Index hinzu?
Ich habe versucht, bquote zu verwenden, aber es hat nicht funktioniert. Googeln brachte auch nicht viel.
Scavenged Code:
library(plotly)
set.seed(123)
n <- 100
theta <- runif(n, 0, 2*pi)
u <- runif(n, -1, 1)
base<-'B1'
compare<-'A1'
plot (1, 1, main = bquote('Annual mean' ~CO[2] ~'Flux Difference: \n' ~.(compare)~ 'minus'~.(base)))
p <- plot_ly(x = ~sqrt(1 - u^2) * cos(theta), y = ~sqrt(1 - u^2) * sin(theta), z = ~u) %>%
layout(
title = "Layout options in a 3d scatter plot",
scene = list(
xaxis = list(title = bquote('Annual mean' ~CO[2] ~'Flux Difference: \n' ~.(compare)~ 'minus'~.(base))),
yaxis = list(title = "Sin"),
zaxis = list(title = "Z")
))
p
Vielen Dank für Ihre Zeit!
Danke, es funktioniert super! –
@Florian, wie soll ich dieses Objekt sehen? Wenn ich einen Index in eine Achsenbeschriftung einfüge, wie oben gezeigt, verschwindet die Achsenbeschriftung (wenn der Plotgraph sowohl in R Viewer als auch in meinem Webbrowser angezeigt wird). Vielen Dank. – AJMA
Schwierig zu lösen mit so wenig Informationen. Könnten Sie eine neue Frage zu SO mit einem reproduzierbaren Beispiel öffnen? – Florian