在 R 中重命名 JPG 文件

Question

我有一张我拍摄地块图像的字段地图。这些照片是从左到右拍摄的，像这样蛇形；所以，从101,118,119,136,137,138,135,120,117,102,103,116等等。这些照片也是按这个顺序排列的；但是，它们的名称不同，与地块不对应，文件名看起来像这样100_498，100_499，100_500，100_501。所以为了进一步的细节，地块101等于文件100_498，地块118等于文件100_499等等…我需要能够根据他们在字段中拍摄照片的方式将文件重命名为下面的地形图对应的文件。如果我用我的代码重命名它们，它会从上到下，因为它是蛇形的，图片将在文件夹中按顺序排列。

现在我需要重新做R代码……有什么建议吗？？？我需要重命名这些文件，使其与此图相对应。

这是我的代码，如果他们会从下到上获取数据并蛇形......101， 102， 103， 104， 105， 106， 107， 108， 109， 110， 111， 112 等

Plot map
109 110 127 128 145
108 111 126 129 144
107 112 125 130 143
106 113 124 131 142
105 114 123 132 141
104 115 122 133 140
103 116 121 134 139
102 117 120 135 138
101 118 119 136 137

f <-list.files(pattern="*.JPG") #imports files names
head(f) #first 6 rows of data

new_names <- paste("Plot_", #create new file name
               formatC(seq(length(file_names)), #writes the number in 
                #sequential order
               width=2,flag="0"), 
               ".JPG",sep="")
head(new_names) #first 6 rows of data
file.rename(from=f, to=new_names) #replaces old file name with new file name
list.files(pattern=".JPG") #check to make sure it was done

Answer 1

下面的函数创建一个查找表，将一个方向的Z字形转换为另一个方向上的Z字形。。。

zigzag <- function(n=45,r=9){ #n=number of plots, r=number of rows
  #create desired new order as a matrix
  new <- matrix(1:n,nrow=r)
  even <- 2*seq_len(ncol(new)/2)
  new[,even] <- apply(new[,even],2,rev)

  #create old order as a matrix
  old <- t(matrix(1:n,ncol=r))
  even <- 2*seq_len(nrow(old)/2)
  old[even,] <- t(apply(old[even,],1,rev))

  #reduce to vectors and return look-up table as a dataframe
  df <- data.frame(old=as.vector(old),new=as.vector(new))
  return(df)
}

然后，您可以按如下方式重命名您的文件…

lookup <- zigzag() #create lookup table

oldfiles <- paste0("100_",497+lookup$old,".JPG") 
newfiles <- paste0("Plot_",100+lookup$new,".JPG")

file.rename(oldfiles,newfiles)

head(oldfiles,10)
 [1] "100_498.JPG" "100_507.JPG" "100_508.JPG" "100_517.JPG" "100_518.JPG" "100_527.JPG" "100_528.JPG" "100_537.JPG"
 [9] "100_538.JPG" "100_499.JPG"
head(newfiles,10)
 [1] "Plot_101.JPG" "Plot_102.JPG" "Plot_103.JPG" "Plot_104.JPG" "Plot_105.JPG" "Plot_106.JPG" "Plot_107.JPG"
 [8] "Plot_108.JPG" "Plot_109.JPG" "Plot_118.JPG"

Answer 2

以下函数将 fileno 转换为您要查找的 100_498 格式。此示例适用于您的特定情况，但如果您需要更普遍地使用它，您可能希望对其进行参数化。

filecoords <- function(fileno){
  fcol <- 498 + (fileno - 101) %/% 9
  frow <- ifelse(fcol %% 2, 108-((fileno-101) %% 9),100+((fileno-101) %% 9))
  return(paste(frow, fcol, sep="_"))
}

filecoords(c(101, 105, 124))

[1] "100_498" "104_498" "105_500"

逆函数也可能有用。它接受一个字符串，例如“104_498”，并使用绘图地图中的数字返回文件名“Plot_nnn”。

filenos <- function(coord){
  coords <- as.numeric(unlist(strsplit(coord,"_")))
  base <- 9*(coords[2]-498)+101
  fileno <- base+ifelse(coords[2] %% 2,8-((coords[1]-100) %% 9),(coords[1]-100) %% 9)
  return(paste0("Plot_",fileno))
}

filenos("105_500")
[1] "Plot_124"

所以你可以用类似这样的东西来重命名你的文件...

oldfiles <- list.files(pattern="\\.JPG") #get list of files
oldfilestems <- gsub("\\.JPG","",oldfiles) #remove the suffix
newfilestems <- sapply(oldfilestems,filenos) #assumes your old file stems are "100_498" format
newfiles <- paste0(newfilestems,".JPG") #add the suffix
file.rename(oldfiles,newfiles) #rename