Default geometry

data <- read.csv("my-data.csv")
data <- dplyr::filter(data, x > 0)

Squared off

data <- read.csv("my-data.csv")
data <- dplyr::filter(data, x > 0)

Compact

data <- read.csv("my-data.csv")
data <- dplyr::filter(data, x > 0)