R 如何将指南的标签转换为自定义格式？

我有这个代码来建立我的情节

这里是merged1.data

结构（列表）时间=c（1391525413022、1391525438998、1391525440903、， 1391525446466, 1391525451770, 1391525456050, 1391525472635, 1391525489437, 1391525502903, 1391525512793, 1391525524136, 1391525549132, 1391525562656, 1391525570842, 1391525578937, 1391525603513, 1391525858760, 1391525988388, 13915259917921391526065759），时间=结构（c（1391525413， 1391525438, 1391525440, 1391525446, 1391525451, 1391525456, 1391525472, 1391525489, 1391525502, 1391525512, 1391525524, 1391525549, 1391525562, 1391525570, 1391525578, 1391525603, 1391525858, 1391525988, 1391525991, 1391526065），类别=c（“POSIXct”，“POSIXt”），tzone=“”），经过=c（2016， 1830, 2494, 2717, 2837, 1093, 1216, 2536, 2656, 2416, 2093, 2684, 1878、2808、2294、1179、1291、1166、1244、1039），螺纹=c（7， 7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7,7，版本=结构（c（1L， 1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L， 1L，1L，1L），.Label=“025.00”，class=“factor”），.Names=c（“时间”， “打印时间”、“已用时间”、“线程”、“版本”），row.names=c（NA， -20L），class=“data.frame”）

这里是merged2.data

结构（列表）时间=c（1391525413022、1391525438998、1391525440903、， 1391525446466, 1391525451770, 1391525456050, 1391525472635, 1391525489437, 1391525502903, 1391525512793, 1391525524136, 1391525549132, 1391525562656, 1391525570842, 1391525578937, 1391525603513, 1391525858760, 1391525988388, 13915259917921391526065759），时间=结构（c（1391525413， 1391525438, 1391525440, 1391525446, 1391525451, 1391525456, 1391525472, 1391525489, 1391525502, 1391525512, 1391525524, 1391525549, 1391525562, 1391525570, 1391525578, 1391525603, 1391525858, 1391525988, 1391525991, 1391526065），类别=c（“POSIXct”，“POSIXt”），tzone=“”），经过=c（2016， 1830, 2494, 2717, 2837, 1093, 1216, 2536, 2656, 2416, 2093, 2684, 18782808229411691179129116612441039），螺纹=c（6， 6，6，6，6，6，6，6，6，6，6，6，6，6，6，6，6，6，6，6，6，6，版本=结构（c（1L， 1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L，1L， 1L，1L，1L），.Label=“025.02”，class=“factor”），.Names=c（“时间”， “打印时间”、“已用时间”、“线程”、“版本”），row.names=c（NA， -20L），class=“data.frame”）

和绘图函数

combined_plot <- ggplot(merged1.data, aes(x=threads, y=elapsed)) + 
                     geom_point(aes(size = elapsed,shape=version, colour=time), show_guide = TRUE) +
                     scale_size(guide="none") + 
                     scale_color_gradient(high = "black", low="green", name="Time") + 
                     geom_point(data=merged2.data, aes(size = elapsed, shape=version, colour=time), show_guide = TRUE) + 
                     scale_shape_manual(values=c(15,17), name="Versions")

---

combined_plot在食谱中定义格式化程序函数：

datetime_formatter <- function(x) {
  x <- as.POSIXct(x/1000, origin = "1970-01-01")  
  lab <- format(x, "%d.%m. %H:%M:%S")
  lab
}

combined_plot <- ggplot(merged1.data, aes(x=threads, y=elapsed)) + 
  geom_point(aes(size = elapsed,shape=version, colour=time), show_guide = TRUE) +
  scale_size(guide="none") + 
  scale_color_gradient(high = "black", low="green", name="Time", label=datetime_formatter) + 
  geom_point(data=merged2.data, aes(size = elapsed, shape=version, colour=time), show_guide = TRUE) + 
  scale_shape_manual(values=c(15,17), name="Versions")

print(combined_plot)

datetime\u格式化程序您是否尝试过将时间戳转换为POSIXct变量？@Roland嗯，是的，我尝试过，但我不能将渐变与非数值一起使用，问题是，值的列表非常庞大，所以这不像离散图例上可表示的10个数据快照…@Roland我必须以某种方式指出数据，以便在图片上打印标签，但我不知道如何…请编辑您的问题并添加
dput（merged1.data）
@Roland的输出，非常感谢你的帮助，我链接了结构信息这真是太棒了，非常感谢，@Roland，你是一个专家，还有一个小问题，你认为这种形式的情节能有效地表示过程中的实际视图吗？或者这是一种丑陋的方式？你一个人怎么做？
DF <- rbind(merged1.data, merged2.data)
combined_plot <- ggplot(DF, 
                        aes(x=time_print, y=elapsed, colour=factor(threads), 
                            shape=version)) + 
                    geom_point(size=5)
print(combined_plot)