技术问答r璇█鎬庝箞灏嗙己澶卞€兼浛鎹负0 - 扬州沐宇科技

瑕佸皢R璇█涓殑缂哄け鍊兼浛鎹负0锛屽彲浠ヤ娇鐢╥s.na()鍑芥暟鍜宨felse()鍑芥暟鐨勭粍鍚堛€備笅闈㈡槸涓€涓ず渚嬩唬鐮侊細

# 鍒涘缓涓€涓寘鍚己澶卞€肩殑鍚戦噺
vec <- c(1, 2, NA, 4, 5)

# 灏嗙己澶卞€兼浛鎹负0
vec_fixed <- ifelse(is.na(vec), 0, vec)

# 杈撳嚭鏇挎崲鍚庣殑鍚戦噺
print(vec_fixed)

杈撳嚭缁撴灉涓猴細1 2 0 4 5

鍦ㄤ笂杩颁唬鐮佷腑锛屾垜浠鍏堝垱寤轰簡涓€涓寘鍚己澶卞€肩殑鍚戦噺vec銆傜劧鍚庯紝浣跨敤is.na()鍑芥暟妫€鏌ュ悜閲忎腑鐨勬瘡涓厓绱犳槸鍚︿负缂哄け鍊笺€?code>is.na(vec)杩斿洖涓€涓€昏緫鍚戦噺锛岃〃绀烘瘡涓厓绱犳槸鍚︿负缂哄け鍊笺€傛帴涓嬫潵锛屾垜浠娇鐢?code>ifelse()鍑芥暟灏嗙己澶卞€兼浛鎹负0銆?code>ifelse()鍑芥暟鎺ュ彈涓変釜鍙傛暟锛氭潯浠躲€佹潯浠朵负鐪熸椂鐨勫€煎拰鏉′欢涓哄亣鏃剁殑鍊笺€傚洜姝わ紝鎴戜滑灏?code>is.na(vec)浣滀负鏉′欢锛?浣滀负鏉′欢涓虹湡鏃剁殑鍊硷紝vec浣滀负鏉′欢涓哄亣鏃剁殑鍊笺€傛渶鍚庯紝灏嗘浛鎹㈠悗鐨勫悜閲?code>vec_fixed鎵撳嵃鍑烘潵銆?/p>