我有主题代码，其中代码的最后一位数字是会话号。使用子字符串，我可以创建一个新的会话号变量，但是会话号仍然需要从原始主题代码中删除。（AN11GR1 应变为 AN11GR）
这是一个带有解决方案的可重现示例：
structure(list(subject = c("AN11GR1", "AN11GR2", "BR13ST1", "BR13ST2"
), target = c("m_ve", "k_ck", "m_ve", "k_ck"), corrAns = c("o",
"i", "o", "i"), RT = c(2.9254148, 1.7154148, 2.6454148, 1.9254148
)), class = "data.frame", row.names = c(NA, -4L)) -> myData
myData$session <- substring(myData$subject, nchar(myData$subject))
myData$subject <- substring(myData$subject, 1, nchar(myData$subject)-1)
myData <- subset(myData, select = c(subject, session, RT))
myData
关于如何以简洁方便的方式删除最后一个字符的想法？（有关最简洁的解决方案，请参阅 akrun 的评论。）
我的大部分图都是用 ggplot2 制作的，ggsave 命令用一行将它们保存在它们应该在的位置。但是，使用 vcd 包的马赛克图最适合我的数据。问题：我没有收到包含以下代码的错误消息。R 说它已经保存了我的情节，但被保存的情节是我创建的最后一个 ggplot 图，而不是我想要的马赛克图。当然我可以在 RStudio 中手动保存，但我很确定有更好的方法。有任何想法吗？
Onlyaround <- subset(prepData, preposition=="around")
attach(Onlyaround)
mytable <- table(exp_group, session, result)
ftable(mytable)
mosaic(mytable, shade=TRUE, legend=TRUE, main = "Around by Group")
margin.table(mytable)
ggsave("pics/around_mosaic.png")
detach(Onlyaround)