小编Gru*_*ter的帖子

我有以下图表：

并且想进行我认为非常简单的更改：我想删除左侧刻面标签边框线的顶部、右侧和底部。

我如何删除这些线，或绘制右手线的等价物？如果可能的话，我宁愿不要乱搞，但不会拒绝任何有效的解决方案。

图代码：

library(ggplot2)
library(dplyr)
library(forcats)

posthoc1 %>% 
  mutate(ordering = -as.numeric(Dataset) + Test.stat,
         Species2 = fct_reorder(Species2, ordering, .desc = F)) %>% 
  ggplot(aes(x=Coef, y=Species2, reorder(Coef, Taxa), group=Species2, colour=Taxa)) + 
  geom_point(size=posthoc1$Test.stat*.25, show.legend = FALSE) + 
  ylab("") + 
  theme_classic(base_size = 20) +
  facet_grid(Taxa~Dataset, scales = "free_y", space = "free_y",  switch = "y") +
  geom_vline(xintercept = 0) +
  theme(axis.text.x=element_text(colour = "black"), 
        strip.placement = "outside", 
        strip.background.x=element_rect(color = NA,  fill=NA), 
        strip.background.y=element_rect(color = "black",  fill=NA)) +
  coord_cartesian(clip = "off") +
  scale_x_continuous(limits=NULL)

数据：

structure(list(Dataset = structure(c(1L, 1L, …

我有以下数据:

  Group Hormone Damage    Score Greater   
 1 B     control damaged       4       1        
 2 B     control undamaged     4       1        
 3 B     JA      damaged       2       0       
 4 B     JA      undamaged     3       0  
 5 D     control damaged       2       0        
 6 D     control undamaged     1       0        
 7 D     JA      damaged       4       1        
 8 D     JA      undamaged     3       1        

我手动创建了"更大"列.从本质上讲,它问"在一个群体中,哪个受损的分数值更大？" 较大的值分配为1,较小的值为0.

如何为我创建一些代码？我尝试过以下dplyr代码,但没有成功:

df%>% group_by(Group) %>% 
  mutate(Greater1 = if_else(Score>Score, 0,1))

如果已经提出这个问题,请告诉我,因为我找不到类似的问题.

我有多行细胞，例如

现在，使用“文本到列”按钮，我可以将行拆分为单独的列。到目前为止，一切都很好。

但是，我的问题是某些单元格并非每行都有数据。例如：

当我拆分上面的内容时，我会得到未对齐的列，如下所示：

有没有办法使列对齐，以便所有“名称”值都在同一列中，所有地址值都在同一列中等等？