我使用library(rgl)
包在 R-studio 中制作 3d 图。如图所示,几乎所有看起来都不错
日期格式除外。无论我尝试做什么,它都不会显示日期来代替整数。这是我用来生成图的代码:
# Plot
Date <- as.Date(df$Date)
df["Color"] <- NA
mycolors <- c('royalblue')
df$Color <- mycolors
par(mar=c(0,0,0,0))
plot3d(
x = Date, y = C, z = L,
col = df$Color,
type = 'p',
size = 2,
xlab="Date", ylab="C", zlab="L")
filename <- writeWebGL(dir = file.path(folder, coln),
width=600, height=600, reuse = TRUE)
我尝试了一些方法来获取轴上的日期,例如:
Date1 = as.character(df$Date)
Date = as.Date(Date1, format = "%Y%m%d")
Date = format(as.Date(df$Date, origin="1970-01-01"))
Date <- seq(as.Date("2016-02-29", format = "%Y-%m-%d"), by ="days", length = length(df$Date), origin = "1970-01-01")
但没有任何效果。我总是得到代表日期的整数,例如
as.Date(17000, "1970-01-01")
1 "2016-07-18"
谁能知道如何解决这个问题?我将不胜感激。