如何解决R Shiny中数字开头行名被自动添加X前缀的问题

方案1：直接用原始编码列匹配（最推荐） #

不需要依赖行名做匹配，完全规避make.names自动加前缀的问题，操作步骤如下：

• 删除设置行名的rownames (Data)= make.names (Daten$IN04_05, unique = TRUE)这行代码
• 把匹配逻辑改为直接筛选编码列IN04_05
• 修正原UI代码的嵌套语法错误（原代码误将mainPanel放在了sidebarPanel内部）
  完整修改后代码如下：

# 读入数据
Data <- read.csv("Daten2.csv", header= TRUE, sep = ";", na.strings=c("",".","NA"), skipNul = TRUE)

# UI修正结构
ui <- fluidPage(
  titlePanel("Your results"),
  sidebarLayout(
    sidebarPanel(
      textInput(inputId = "Code", label= "Please enter your code", placeholder= "z.B. 01ABAB01"),
      actionButton (inputId = "Button", label = "Show my results")
    ),
    mainPanel(textOutput(outputId = "Example"))
  )
)

server<-function(input,output){
  output$Example<-eventReactive(
    input$Button, {
      # 直接匹配原始编码列，无需处理行名前缀
      target_val <- Data[Data$IN04_05 == input$Code, "SP03_01"]
      paste("Your result is ", target_val)
    }
  )
}
shinyApp(ui=ui, server=server)

如果需要保证编码唯一，可在读入数据后提前校验：

# 检查是否有重复编码
stopifnot("存在重复的参与者编码" = !any(duplicated(Data$IN04_05)))

方案2：保留行名匹配逻辑，修正拼写与拼接错误 #

你之前拼接X后返回NA的核心原因有两个：

1. 设置行名时变量名拼写错误：读入的数据集命名为Data，但你调用了不存在的Daten变量
2. UI结构嵌套错误，导致组件功能异常
   修正后的完整代码如下：

Data <- read.csv("Daten2.csv", header= TRUE, sep = ";", na.strings=c("",".","NA"), skipNul = TRUE)
# 变量名统一为Data
rownames(Data)= make.names(Data$IN04_05, unique = TRUE)

ui <- fluidPage(
  titlePanel("Your results"),
  sidebarLayout(
    sidebarPanel(
      textInput(inputId = "Code", label= "Please enter your code", placeholder= "z.B. 01ABAB01"),
      actionButton (inputId = "Button", label = "Show my results")
    ),
    mainPanel(textOutput(outputId = "Example"))
  )
)

server<-function(input,output){
  output$Example<-eventReactive(
    input$Button, {
      # 给用户输入的编码拼接X前缀匹配行名
      target_row <- paste0("X", input$Code)
      paste("Your result is ", Data[target_row, "SP03_01"])
    }
  )
}
shinyApp(ui=ui, server=server)

注意：如果存在重复编码，make.names会自动给重复行名加.1/.2后缀，这种情况下拼接X的方法依然会匹配失败，更推荐使用方案1。

内容的提问来源于stack exchange，提问作者Ninke