Fatal编程技术网
  • r/
  • 如何在GGR中从ggplot直方图中去除范围中心

如何在GGR中从ggplot直方图中去除范围中心

r

如何在GGR中从ggplot直方图中去除范围中心,r,ggplot2,R,Ggplot2,我用以下代码生成了直方图： # Load Data file <- "SharedData.csv" data <- read.csv(file,header = TRUE,sep = ",") ## Bin Levels data$xLevel <- cut(data$xLevel, breaks = quantile(data$xLevel,(0:5)/5), labels = paste("

我用以下代码生成了直方图：

# Load Data
file <- "SharedData.csv"
data <- read.csv(file,header = TRUE,sep = ",")

## Bin Levels
data$xLevel <- cut(data$xLevel,
                    breaks = quantile(data$xLevel,(0:5)/5),
                    labels = paste("Quant",1:5,sep = "."),
                    include.lowest = TRUE,ordered_result = TRUE)

# Histogram 
g <- ggplot(data, aes(x=xTime,color = xLevel)) + 
    geom_histogram(aes(y=..density..),      
                   binwidth=100)
g  

#加载数据
文件根据，似乎不可能。您可以改为打印2个图形

首先创建一个新列，将数据一分为二


data$Block <- ifelse(data$xTime <=500, "A", "B")



data$Block请生成一个。它有助于重现问题。并添加一个
在图像链接前面出现问题本身。是否共享一些数据？直接编辑轴会很困难-一个简单的解决方案是为数据是否在0-300或1500-2400范围内添加一个指示符列，然后再添加一个刻面。您是否可以将数据包括在内，以便我们可以查看它们。@Narendra有一个信誉阈值，低于该阈值，用户无法发布图像。高代表性用户通常只会在中编辑它们。非常抱歉，无法使其重现，这是我的第一篇帖子，我正在处理它。我将找出如何立即共享数据。在这种情况下，我会将
space=“free\u x”
添加到
facet\u网格中。

library(scales)
# Histogram 
g <- ggplot(data, aes(x=xTime,color = xLevel)) + 
    geom_histogram(aes(y=..density..),      
                   binwidth=100) + facet_grid(.~Block, scales = "free_x")
g