R：在ggplot2中将指南/图例的顺序从排序字符串更改为排序数字答案

【问题标题】：R: Changing order of guide/legend from sorting strings to sorting numeric in ggplot2R：在ggplot2中将指南/图例的顺序从排序字符串更改为排序数字
【发布时间】：2015-09-22 19:15:39
【问题描述】：

我正在尝试使用 ggplot2 创建等值线图。我使用 cut() 函数成功填充了 geom_tile() 函数的图块以进行中断。使用这种方法，中断将被解释为字符串，而不是值，这给我设置指南的顺序带来了麻烦。这样，例如值 20 将被解释为大于 180 的数字，从而导致情节中具有致命误导性的颜色，例如这个故意丑陋的颜色：

为了创建这个丑陋的图像，我使用了以下代码：

plot.isoline <- function(data, dbr=20, n_interp=200){

  library(akima)
  library(ggplot2)
  library(fields)

  data <- read.table(file = "http://s000.tinyupload.com/download.php?file_id=90687695741432763217&t=9068769574143276321730276", header = T)

  dint <- interp(x = data$x, y = data$y, z = data$z,
                 xo = seq(min(data$x), max(data$x), length = n_interp),
                 yo = seq(min(data$y), max(data$y), length = n_interp))

  dat_interp <- data.frame(expand.grid(x=dint$x,y=dint$y), z=c(dint$z))

  br <- seq(floor(min(dat_interp$z)/dbr)*dbr, ceiling(max(dat_interp$z)/dbr)*dbr, dbr)

  breaks <- cut(dat_interp$z, breaks = br)
  breaks <- gsub(","," - ",breaks,fixed=TRUE)

  dat_interp$breaks <- sapply(breaks, function(x){strsplit(x, "[( ]")[[1]][[2]]})

  ret <- ggplot(dat_interp) + 
    aes(x=x, y=y, z=z) +
    geom_tile(aes(fill=breaks)) +
    scale_fill_manual("TEMP", values=tim.colors(length(br)), guide = guide_legend(reverse=TRUE)) +
    stat_contour(breaks=br) +
    scale_x_continuous(expand=c(0,0)) +
    scale_y_continuous(expand=c(0,0))

  return(ret)        
}

我已经尝试通过以下方式将中断字符串设置为值：

dat_interp$breaks <- as.numeric(sapply(breaks, function(x){strsplit(x, "[( ]")[[1]][[2]]}))

这种方法只会导致错误“错误：提供给离散刻度的连续值”。我确信必须有一种以数字方式订购秤的方法，如果有人可以帮助我解决这个问题，我会非常高兴。

【问题讨论】：

标签： r string sorting ggplot2 numeric

【解决方案1】：

ggplot2 将character 值排序为字符串，factor 值按级别排序。在您的代码中，

breaks <- gsub(","," - ",breaks,fixed=TRUE)

将cut 返回的因子转换为字符。尝试省略它。

如果您需要更改显示，请使用类似

levels(breaks) <- gsub(",", " - ", levels(breaks), fixed=TRUE)

【讨论】：

但是使用dat_interp$breaks <- sapply(breaks, function(x){strsplit(x, "[( ]")[[1]][[2]]})之后就没有关卡了，对吧？如果我使用 as.numeric() 将这些字符串转换为值，仍然会出现此错误消息（错误：提供给离散刻度的连续值）
@oepix：哦，我错过了那句话。尝试在dat_interp 数据框中使用cut 返回的中断，并在必要时仅修改级别。（我认为strsplit 也可以使用gsub 来实现。）
好的，这帮我弄清楚了，非常感谢@krlmlr！

【解决方案2】：

在@krlmlr 的帮助下，我设法解决了这个问题。正如他所说，关键部分是编辑levels()。对于任何感兴趣的人，这是重要的部分：

  breaks <- cut(dat_interp$z, breaks = br)
  levels(breaks) <- gsub(","," - ", levels(breaks),fixed=TRUE)
  dat_interp$breaks <- breaks
  levels(dat_interp$breaks) <- as.numeric(sapply(levels(breaks), function(x){strsplit(x, "[( ]")[[1]][[2]]}))

这样我得到以下结果，正确排序：

以及完整的代码：

plot.isoline <- function(data, dbr=20, n_interp=200){

  library(akima)
  library(ggplot2)
  library(fields)

  data <- read.table(file = "http://s000.tinyupload.com/download.php?file_id=90687695741432763217&t=9068769574143276321730276", header = T)

  dint <- interp(x = data$x, y = data$y, z = data$z,
                 xo = seq(min(data$x), max(data$x), length = n_interp),
                 yo = seq(min(data$y), max(data$y), length = n_interp))

  dat_interp <- data.frame(expand.grid(x=dint$x,y=dint$y), z=c(dint$z))

  br <- seq(floor(min(dat_interp$z)/dbr)*dbr, ceiling(max(dat_interp$z)/dbr)*dbr, dbr)

  breaks <- cut(dat_interp$z, breaks = br)
  levels(breaks) <- gsub(","," - ", levels(breaks),fixed=TRUE)
  dat_interp$breaks <- breaks
  levels(dat_interp$breaks) <- as.numeric(sapply(levels(breaks), function(x){strsplit(x, "[( ]")[[1]][[2]]}))

  ret <- ggplot(dat_interp) + 
    aes(x=x, y=y, z=z) +
    geom_tile(aes(fill=breaks)) +
    scale_fill_manual("TEMP", values=tim.colors(length(br)), guide = guide_legend(reverse=TRUE)) +
    stat_contour(breaks=br) +
    scale_x_continuous(expand=c(0,0)) +
    scale_y_continuous(expand=c(0,0))

  return(ret)        
}

【讨论】：