Question

我有一些代码作为战舰游戏的数据，如：A0,A1,B0,B4,K12，我想将它们转换为坐标点。字母应为x坐标，数字应为y坐标。除此之外，我应该改变数字中的字母以使它们相乘。像那样：

A0 = 0 , 0;   
A1 = 0 , 15;   
A2 = 0 , 30; 
B3 = 15 , 45

Answer 1

你走了：

BattleshipConversion <- function(mystring)
{
  return(c(which(LETTERS==substr(mystring,1,1))-1,as.integer(substr(mystring,2,3)))*15)
}

结果：

>BattleshipConversion("B1") 
15 15
>BattleshipConversion("A10")
0 150

那么上面发生了什么？

LETTERS是R预生成的大写字母矢量。 which获取该向量中字母的索引位置，因此which(LETTERS=='A')将给出1.我们从中减去1.
substr是一个从字符串中提取子字符串的函数，以string，start和stop为参数。计数从第一个元素开始，在R中为1. substring(mystring,1,1)获取mystring的第一个字符元素并停在那里。
as.integer只是将存储为字符的1-2位整数转换为正确的整数格式。
我们使用c()将它全部保存在一个组合向量中，根据OP的规范，所有内容都会乘以15，
该函数返回结果。

请注意，这假设您的输入字符串格式正确。它最多只能Z和99，即AA14或B101失败。您可能想要添加一些安全措施。

Answer 2

说你有这些职位：

pos<-c("A0","A1","A2","B3","K12")

你可以：

require(data.table) #just to use tstrsplit
res<-setNames(as.data.frame(tstrsplit(pos,"(?<=[A-Z])",perl=TRUE),stringsAsFactors=FALSE),c("x","y"))
res[[1]]<-(match(res[[1]],LETTERS)-1)*15
res[[2]]<-as.numeric(res[[2]])*15
cbind(pos,res)
#  pos   x   y
#1  A0   0   0
#2  A1   0  15
#3  A2   0  30
#4  B3  15  45
#5 K12 150 180

Answer 3

这是矢量化的，可以轻松扩展为双字母：

fun <- function(s) {
  x <- gsub("[[:digit:]]", "", s) #remove numbers
  y <- gsub("[[:alpha:]]", "", s) #remove letters

  x <- match(x, LETTERS) - 1 #match against letters
  y <- as.integer(y)
  cbind(x = x * 15, y = y * 15)
}

fun(c("A0", "A1", "A2", "B3"))
#      x  y
#[1,]  0  0
#[2,]  0 15
#[3,]  0 30
#[4,] 15 45

Answer 4

这是一个dplyr回答

library(dplyr)
library(tidyr)
library(rex)

template = rex(capture(letters),
               capture(numbers) )

coordinates = c("A0","A1","B0","B4","K12")

letter_frame = 
  data_frame(LETTERS,
             x_small = 1:26)

result = 
  data_frame(coordinate = coordinates) %>%
  extract(coordinate, c("letter", "y_small"), template, convert = TRUE) %>%
  left_join(letter_frame) %>%
  mutate(x = x_small*15,
         y = y_small*15)

Answer 5

BSconverter <- function(str){ 
  let <- substr(str,1,1)
  num <- as.integer(substr(str,2,nchar(str))) * 15
  letnum <- (which(LETTERS==let)-1) * 15 
  c(letnum, num)

}


> BSconverter("K12")
[1] 150 180

如何在R中读取字母作为数字

5 个答案: