如何使用文本绘制因子变量rpart的级别而不是标签/索引？

在因子变量上绘制树拆分会生成一个图，其中节点标记为因子的索引，而不是级别的文本。如何绘制一棵树，其中标签是因子变量的实际级别

例如，下面是关于足球运动员的示例数据。这个想法是国家（通过目标变量）解释球员的收入。国家被用作因素变量

goals <- rpois(n = 5,lambda = 2)
income <- rnorm(100, goals*100000, sd = 1+goals*1000)
country <- rep(c("England","USA", "Nigeria", "Argentia", "Belgium"),
               times = 20)
player_df <- data.frame(income = income, country = country)

t1 <- rpart(income ~ ., 
      data = player_df, 
      cp = 0.01)

plot(t1); text(t1,)

goals尝试
text（t1，pretty=FALSE）
。这将防止因子标签被缩短