一般来说，同一纬度上两点之间的直线 * 不是 * 沿着该纬度的直线。
当然，球面上不存在直线这种东西;最接近的等价物是 * 测地线 *，即两点都位于大圆上的一段。经度线已经是大圆，因此连接完全相同经度上的两点的线将始终具有相同的经度。纬度线不是这样的，因为它们不是 * 大圆（除了赤道本身）。
如果你在北方半球定义一个足够大的矩形，它的南北边将向北凸出，在南半球，它们将向南凸出。
如果您想要的是一个具有固定纬度和经度边界的区域，那么最好指定坐标，沿着每条边指定几个点，这些点与您想要的确切纬度一致：

lon <- c(seq(-84, -74.99, len = 100),
         rep(-75, 100), seq(-75.01, -83.99, len = 100),  
         rep(-84, 100))
lat <- c(rep(40, 100), seq(39.99, 35.01, len = 100), rep(35, 100),
         seq(35.01, 40, len = 100))

pol <- sf::st_polygon(list(cbind(lon, lat)))
pol <- sf::st_sfc(pol, crs=sf::st_crs(usa))

usa <- sf::st_intersection(usa, pol)

ggplot() +
  geom_sf(data = usa)