Question

在ggplot生成的图中，沿x轴的每个标签都是一个字符串，即“1990年的产品”。但是，生成的绘图在每个单词之间存在一段时间。换句话说，上面的字符串显示为“the.product.in.1990”

如何确保不添加上述“。”？

以下代码是我用来为沿x轴的每个点添加字符串的代码

last_plot()+scale_x_discrete(limits=ddata$labels$text)

示例代码：

library(ggdendro)
x <- read.csv("test.csv",header=TRUE) 
d <- as.dist(x,diag=FALSE,upper=FALSE) 
hc <- hclust(d,"ave") 
dhc <- as.dendrogram(hc) 
ddata <- dendro_data(dhc,type="rectangle")
ggplot(segment(ddata)) + geom_segment(aes(x=x0,y=y0,xend=x1,yend=y1))
last_plot() + scale_x_discrete(limits=ddata$labels$text)

ddata$labels$text的每一行都是一个字符串，就像“1990年的产品”。我想在生成的图中保留相同的格式，而不是“the.product.in.1990”

Answer 1

出现此问题的原因是您尝试读取包含空格的列名称的数据。

当您使用read.csv读取此数据时，这些列名称将转换为语法上有效的R名称。以下是一个说明问题的示例：

some.file <- '
    "Col heading A", "Col heading B"
    A, 1
    B, 2
    C, 3
    '

使用默认的read.csv设置进行阅读：

> x1 <- read.csv(text=some.file)
> x1
  Col.heading.A Col.heading.B
1             A             1
2             B             2
3             C             3
4                          NA
> names(x1)
[1] "Col.heading.A" "Col.heading.B"

要避免这种情况，请使用参数check.names=FALSE：

> x2 <- read.csv(text=some.file, check.names=FALSE)
> x2
  Col heading A Col heading B
1             A             1
2             B             2
3             C             3
4                          NA
> names(x2)
[1] "Col heading A" "Col heading B"

现在，剩下的问题是列名不能包含空格。因此，要引用这些列，您需要在反引号中包装列名：

> x2$`Col heading A`
[1]     A     B     C      
Levels:          A     B     C

有关详细信息，请参阅?read.csv，特别是check.names的信息。

?Quotes

中还有一些关于反引号的信息

列名称插入句点，其中应该有空格

1 个答案: